[RESOLVED]BOF and EOF [/RESOLVED]

[Beengie]

Well...
it's all mendhak's fault

I changed over my ADO object to the code...

I having a problem with EOF and BOF. When I reach BOF or EOF I get this error:
Run-time error '3021':
Either BOF or EOF is True, or the current record has been deleted.
Requested operation requires a current record.
Here is my code:

Public Sub Form_Load()
 
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\bb-calc.mdb"
    cn.Open
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * from tblBrushBed", cn, adOpenDynamic, adLockPessimistic
    FillFields
End Sub
 
Private Sub cmdPrev_Click()
    If rs.BOF = False Then
        rs.MovePrevious
        FillFields
    End If    
End Sub
 
Private Sub cmdNext_Click()
    If rs.EOF = False Then
        rs.MoveNext
        FillFields
    End If
End Sub