Runtime Error 3021 BOF EOF

[tantan05]

Call Opendbase
rs.Open "Select * from tblBorrowedBooks where IDNumber = '" & txtID.Text & "' and BookTitle= '" & txttitle.Text & "' and Copies = " & BorrowedBooksGrid.TextMatrix(BorrowedBooksGrid.Row, 9) & "", cn, 3, 2
If Not rs.BOF And rs.EOF Then
rs!Copies = Val(copy.Text) + Val(txt.Text)
    BorrowedBooksGrid.Refresh
    rs.Update
    rs.Close
    cn.Close
    BorrowedBooksGrid.Refresh
    MsgBox "Book Borrowed. . . ."
    copy.Text = ""
    Else
    rs.MoveFirst '<---------Error Here il try to change it to movelast but the same error
 End If

End If

any BOF EOF solution syntax for my code help me plss
i dont want to use error handler because nothing happen the program only bypass the Error pls help me guys