List 1-1　ADOを用いてデータベースにアクセスするプログラム例

  1： Dim objConnection As ADODB.Connection
  2： Dim objRecordset As ADODB.Recordset
  3： 
  4： 'データベースコネクションを作成する。
  5： Set objConnection = CreateObject("ADODB.Connection")
  6： 'データベースコネクションを開く。
  7： '※OLEDBのバージョンによっては，
  8： '　Provider=の部分を，たとえば，Provider=Microsoft.Jet.OLEDB.3.51とする
  9： '　必要がある。
 10： objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
   　                    "Data Source=C:\db\sample.mdb"
 11： 'テーブルを指すレコードセットを取得する。
 12： Set objRecordset = objConnection.Execute("TABLE1",, adCmdTable )
 13： '内容を表示する。
 14： While Not objRecordset.EOF
 15：     MsgBox objRecordset.Fields("ID")
 16：     objRecordset.MoveNext
 17： Wend
 18： 'レコードセットを閉じる。
 19： objRecordset.Close
 20： 'レコードセットを解放する。
 21： Set objRecordset = Nothing
 22： 'コネクションを閉じる。
 23： objConnection.Close
 24： 'コネクションを解放する。
 25： Set objConnection = Nothing