VBS データベースにODBC接続し、データを取得する

Set db = CreateObject("ADODB.Connection")
db.ConnectionString = DSN=xxx;UID=sa;PWD=password
db.Open

sql = "SELECT * FROM table"
Set rs = Execute(sql)

Do Until rs.EOF

    rs.MoveNext
Loop

EOF