Option Compare Database
Option Explicit
'++++++++++++++++++++++++++++++++++++++++++++++++++
'■配列を作成する(Array)
'++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub コマンド0_Click()
Dim a
Dim i As Integer
'配列を作成
a = Array("access", "むかむか", "ほげほげ")
'配列をイミディエイトウィンドウに出力
For i = LBound(a) To UBound(a)
Debug.Print a(i)
Next
End Sub