lcTablePath = 'c:\mySamplesDir\testdata.dbc' strCn = [Data Provider = MSDASQL;]+; [DSN=Visual FoxPro Database;UID=;SourceDB=]+lcTablePath+[;]+; [SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;]+; [Deleted=Yes;] oRecordset = CreateObject("adodb.recordset") oConnection = CreateObject("adodb.connection") With oConnection .Provider = "MSDataShape" .ConnectionString = strCn .Open Endwith With oRecordset .ActiveConnection = oConnection .Source = [ select * from customer order by company ] .Open Endwith With ThisForm.OleDataGrid .Datasource = oRecordset .RowDividerStyle = 4 .Headlines = 4 For ix = 0 to .Columns.Count-1 With .Columns(ix) .Caption = .Caption + " Other lines of header" .DividerStyle = 4 Endwith Endfor .Caption = "Customer Table" EndwithCetin