AccessでDAOを使ってデータの読み取り

' DBを取得
Dim p_db As DAO.Database
Set p_db = CurrentDb()

' SQLを実行
Dim p_rs As DAO.Recordset
Set p_rs = p_db.OpenRecordset(, RecordsetTypeEnum.dbOpenSnapshot)
With p_rs
    If .EOF Or .BOF Then
        ' データがなかった時の処理
        '   :
        '   :
        GoTo Finally
    Else
        ' データがあった時の処理
        .MoveFirst
        Do Until p_rs.EOF
            Debug.Print p_rs.Fields!ID
            Debug.Print p_rs.Fields("Name")
            Debug.Print p_rs.Fields("Age")
            Debug.Print p_rs.Fields("BillingAmount")
            p_rs.MoveNext
        Loop
    End If
End With

Finally:
' クローズ処理
p_db.Close
Set p_db = Nothing