time1 = SECONDS()
oConn = CREATEOBJECT("adodb.connection")
oConn.Open("bbfsdsn","sa","")
oCustomerRS = CREATEOBJECT("adodb.recordset")
oCustomerRS.Open("SELECT * FROM patledger",oconn)
<b>DO WHILE !oCustomerRS.EOF
    x = oCustomerRS.Fields("somefield")
    oCustomerRS.MoveNext()
ENDDO</b>
time2 = SECONDS()

Time1 = SECONDS()
oConn = SQLCONNECT("BBFSDSN","sa","")
cSQL = SQLEXEC(oConn,"SELECT * FROM patledger","oCustomerRS")
<b>SCAN
    x = <i>somefield</i>
ENDSCAN</b>
TIME2 = SECONDS()