LBound関数 ： Access

■ 構文
LBound(arrayname[, dimension])

■ 引数
arrayname　：　（必須）　配列変数の名前を指定します。
dimension 　：　（省略可）　調べる対象となる配列の次元を指定します。　最初の次元なら 1、２つ目の次元なら 2になります。

■ 戻り値
長整数型 (Long)の値で返します

■ Access VBA 実行コード

Option Compare Database
Private Sub コマンド0_Click()
    Dim tAry1(1 To 20) As Long
    Dim tAry2(5 To 30) As Long
    Dim tAry3(10 To 30, 20 To 25) As Long
    Dim ln As Long
        ln = LBound(tAry1, 1)
    Me!テキスト1 = "配列 tAry1 の1次元目の添字の最小は、" & ln & "です。" & vbCrLf
    ln = LBound(tAry2, 1)
    Me!テキスト1 = Me!テキスト1 & "配列 tAry2 の1次元目の添字の最小は、" & ln & "です。" & vbCrLf
    ln = LBound(tAry3, 1)
    Me!テキスト1 = Me!テキスト1 & "配列 tAry3 の1次元目の添字の最小は、" & ln & "です。" & vbCrLf
    ln = LBound(tAry3, 2)
    Me!テキスト1 = Me!テキスト1 & "配列 tAry3 の2次元目の添字の最小は、" & ln & "です。" & vbCrLf
End Sub