VBS ADOでデータベース接続

■サンプルコード
　Accessファイル「注文管理.accdb」の「M_顧客」テーブルをレコードセットに取得

Option Explicit
'データベース接続
Dim cn
Set cn = Wscript.CreateObject("ADODB.Connection")
cn.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=C:\Users\デスクトップ\WHSプロジェクト\注文管理.accdb;"
'レコードセット取得
dim rs
Set rs = Wscript.CreateObject("ADODB.Recordset")
const adOpenKeyset = 1
const adLockOptimistic = 3
rs.Open "M_顧客", cn, adOpenKeyset, adLockOptimistic
'データの表示
rs.MoveFirst
Do Until rs.EOF
 MsgBox "カラム1[" & rs.Fields(0) & "]" & vbCrLf & "カラム2[" & rs.Fields(1) & "]"
 rs.MoveNext
Loop
'レコードセット開放
rs.Close
Set rs = Nothing
'データベース開放
cn.Close
Set cn = Nothing