>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?