EOF関数 ： Access

■ 構文
EOF(filenumber)

■ 引数
filenumber　：　（必須）　任意の有効なファイル番号を表す整数型 (Integer) の数値を指定

■ 戻り値
ファイルの末尾に達していない場合は、偽 (False) を返し、ファイルの末尾に達している場合、真 (True) を返します。

■ Access VBA 実行コード

Option Compare Database
Private Sub コマンド0_Click()
    Dim s1 As String
    Me!テキスト1 = ""
    'テキストファイルを開く
    Open "c:\dam\お読みください.txt" For Input As #1
    '最後の行までループ
    Do While Not EOF(1)
        '一行づつ読む
        Line Input #1, s1
        'テキストボックスに追加
        Me!テキスト1 = Me!テキスト1 & s1 & vbCrLf
    Loop
    Close #1
End Sub