PROGRAM-17

WORKING WITH FLIGHT SIMULATOR DATABASE
-------------------------------------------------------
Set db=createobject("ADODB.connection")
db.open "dsn=qt_flight32"
If db.state = 1 Then
msgbox("connected")'
exit test
end if
Set rs=db.execute("select * from Orders")
cc=rs.fields.count
While not rs.eof
rw=""
For i=0 to cc-1
celldata=rs.fields(i).value
rw=rw & vbtab & celldata
Next
print(rw)
rs.movenext
Wend