Local oExcel oExcel = Createobject("Excel.Application") With oExcel .WorkBooks.Add .Visible = .T. VFP2Excel(_samples+'data\testdata.dbc',; 'select * from customer',; .ActiveWorkBook.ActiveSheet.Range('A1')) Endwith Function VFP2Excel Lparameters tcDataSource, tcSQL, toRange Local loConn As AdoDB.Connection, ; loRS As AdoDB.Recordset,; ix loConn = Createobject("Adodb.connection") loConn.ConnectionString = "Provider=VFPOLEDB;Data Source="+m.tcDataSource loConn.Open() loRS = loConn.Execute(m.tcSQL) *!* For ix=1 To loRS.Fields.Count *!* toRange.Offset(0,m.ix-1).Value = Proper(loRS.Fields(m.ix-1).Name) *!* toRange.Offset(0,m.ix-1).Font.Bold = .T. *!* Endfor *!* toRange.Offset(1,0).CopyFromRecordSet( loRS ) toRange.CopyFromRecordSet( loRS ) loRS.Close loConn.Close EndfuncCetin