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, oConnUm abraço!