Example using Microsoft OLE DB Provider for ODBC (MSDASQL)

dim conn, rs, SQL, connStr
set conn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.RecordSet")
conn.ConnectionString = "DSN=access;UID=;PWD="
conn.Open()
rs.Open "SELECT * FROM table", conn, 3, 3
Do While Not rs.EOF 
 wscript.echo rs.Fields(0).Value  
 rs.MoveNext 
Loop 

Example using OpenLink OLE DB Provider for ODBC (OpenLinkODBC)

dim conn, rs, SQL, connStr
set conn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.RecordSet")
conn.ConnectionString = "Provider=OpenLinkODBC;DSN=access;UID=;PWD="
conn.Open()
rs.Open "SELECT * FROM table", conn, 3, 3
Do While Not rs.EOF 
 wscript.echo rs.Fields(0).Value  
 rs.MoveNext 
Loop