>LOCAL loConn AS ADODB.Connection >LOCAL loCommand AS ADODB.Command >LOCAL loRecordSet AS ADODB.Recordset > >loConn = CREATEOBJECT("ADODB.Connection") > >loConn.ConnectionString = [Provider=VFPOLEDB.1;Data Source=D:\DEV\Temp\Data\data.dbc;Collating Sequence=MACHINE] > >loConn.Open() > >loCommand = CREATEOBJECT("ADODB.Command") >loCommand.ActiveConnection = loConn > >loCommand.CommandText = [SELECT myTable.* FROM myTable WHERE RecID = ? or RecID = 1] >loCommand.CommandType = 1 >loCommand.Parameters.Append( loCommand.CreateParameter("RecID", 3, 1, , 7)) > >loRecordSet = loCommand.Execute() > >DO WHILE !loRecordSet.EOF > ?loRecordSet.Fields('RecID').Value > loRecordSet.MoveNext() >ENDDO >>