how to retreive data from a database

Dim oConn, oRst, oField

Dim sql



set oConn = CreateObject("ADODB.Connection")

oConn.Open "QT_Flight32"

set oRst = CreateObject("ADODB.recordset")

oRst.Open "Select * from Orders", oConn

Do Until oRst.EOF

For each oField in oRst.Fields

Print oField.Name & " = " & oField.Value

Next

Print String( 20, "-" )

oRst.MoveNext

loop



oRst.close

oConn.close

http://www.advancedqtp.com/knowledge-base/qtips/databases-id44/adodb/display-records/