テーブルからデータを表示するプロシージャ（DAO）

Sub dispData()
    Dim db As DAO.Database
    Set db = CurrentDb
    
    Dim rs As DAO.Recordset
    'テーブルを指定する
    Set rs = db.OpenRecordset("T01Prefecture")
    
    'レコードの終了までループする
    Do Until rs.EOF
    Debug.Print rs.Fields("表示させたいフィールド名")
    rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
End Sub