lcStrConn = "driver=sql server;server=lassalanotebook;database=pubs;uid=sa;pwd=;"
lcSelectSQL = "select * from authors"

*** exemplo com SPT
lnHandle = SQLStringConnect(lcStrConn)
SQLExec(lnHandle, lcSelectSQL)
SQLDisconnect(lnHandle)

*** exemplo com ADO
LOCAL loConn as adodb.connection
loConn = CreateObject("adodb.connection") 
loConn.Open(lcStrConn)

LOCAL loRS as adodb.recordset
loRS = CreateObject("adodb.recordset") 
loRS.Open(lcSelectSQL, loConn)

? loRS.Fields("au_lname").Value