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 EnddoCetin