Local oRecordset,oConnection
oRecordset = CreateObject("adodb.recordset")
oConnection = CreateObject("adodb.connection")

With oConnection
  .ConnectionString = [Provider=VFPOLEDB.1;Data Source=C:\ddrive\TEMP\testdata.DBC;]
  .Open
Endwith
With oRecordset
  .ActiveConnection = oConnection
  .Source = [select * from employee]
  .Open
Endwith
Do while !oRecordset.eof()
  ? oRecordset.Fields(1).Value
  oRecordset.MoveNext
Enddo