Local loCon As ADODB.Connection loCon = Createobject("ADODB.Connection") loCon.ConnectionString = "Provider=VFPOLEDB;"+; "Data source=c:\program files\microsoft visual foxpro 9\samples\data\testdata.dbc" loCon.Open loRS = loCon.Execute("select * from customer") ? loRS.Fields(0).Name,loRS.Fields(1).Name Do While !loRS.Eof ? loRS.Fields(0).Value,loRS.Fields(1).Value loRS.MoveNext Enddo loRS.Close loCon.CloseCetin