I keep getting a message that the recordset is not bookmarkable. Using the following very simple code:

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 Sub

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