Dim dbs As Database Dim rst As Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("住所テーブル") With rst Do Until .EOF Debug.Print !ID, !氏名, !住所, !郵便番号 .MoveNext Loop .Close End With Dim cnn As Connection Dim rst As Recordset Set cnn = CurrentProject.Connection Set rst = New ADODB.Recordset With rst .Open "住所テーブル", cnn Do Until .EOF Debug.Print !ID, !氏名, !住所, !郵便番号 .MoveNext Loop .Close End Wit