'Connect to a MS Acces Database

dFile = "C:\Scripts\Pool.mdb" 
dTable = "SwimmingPool"

'Create an ADO object
Set objADO = CreateObject( "ADODB.Connection" )
'Connection String
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= " & dFile & ";" 
'SQL query to execute
mySQL = "SELECT * FROM " & dTable
'Open the Connection
objADO.Open strConnect
'Execute the  query
Set objResults = objADO.Execute( mySQL )
'Loop until the End Of File
Do Until objResults.EOF
   'Display the results
   strFirst  = objResults.Fields( 0 ).Value
   strSecon  = objResults.Fields( 1 ).Value
   WScript.Echo strFirst & " " & strSecon 
   'Move to the Next Element on the List
   objResults.MoveNext
Loop
'Close the Query
objADO.Close