'------- IQ VBS ADO DB Read demo -- JJS 12/17/2009
'
'------- Replace with your own file, grid and search criteria
'---------------------------------------------------
database_filename = "{path}{filename.sndb}"
IQ_Grid = "Journal"
strSearchCriteria = "ID > 0"
' ---------------------------------------------------
'
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set conn = CreateObject("ADODB.Connection")
cx = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & database_filename & ";"
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Set rs = CreateObject("ADODB.Recordset")
conn.Open cx
rs.CursorLocation = adUseClient
select_phrase = "SELECT * FROM " & IQ_Grid
rs.Open select_phrase , conn, _
    adOpenStatic, adLockOptimistic
rs.Find strSearchCriteria
If rs.EOF Then 
    Wscript.Echo "Record cannot be found."
Else
mystring=""
for each x in rs.fields
mystring=mystring & x.name & "=" & x.value & chr(13) & chr(10)
next
Wscript.Echo mystring 
End If
rs.Close
conn.Close

PopMsg="IQ data read attempt complete"
'
WScript.Echo "Clear Popup msg to Exit."
WshShell.Popup(PopMsg)