Oi Luis,

Fiz pequenas alterações no seu código para que a consulta seja feita contra o database Northwind, que vem no SQL Server 2000. Se você conseguir fazer este código rodar no seu ambiente, as adaptações necessárias para acessar as tabelas do seu database são muito pequenas.

Espero que ajude!

LOCAL oConn      as ADODB.Connection
LOCAL oRecordset as ADODB.Recordset

oConn = CREATEOBJECT('adodb.connection')

oConn.Provider = "SQLOLEDB.1"
oConn.ConnectionString = "Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=(local)"

oConn.Open()

oRecordSet = CreateObject("adodb.recordset")
oRecordSet.Open("Select * From Customers", oConn)

DO WHILE NOT oRecordset.EOF
 ? oRecordset.Fields(0).Value 
 oRecordset.MoveNext()
ENDDO 

oRecordset.Close()
oConn.Close()

STORE null TO oRecordset, oConn

Um abraço!