Private Sub cmdAddBooks_Click() Dim s_conn As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset Dim intRecordCount As Integer intRecordCount = 0 s_conn = "Driver=Microsoft Visual Foxpro Driver;UID=;SourceType=DBF;Deleted=YES;Null=NO;SourceDB=C:\BOOKS.DBF" cn.Open s_conn rs.Open "Select * from C:\BOOKS.DBF", cn Set grdWork.DataSource = rs End SubI have also tried binding it through the ADO data control to the same result. Which was satisfying as it disturbs me to bind data. Anyone have a hot tip?
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams