Having trouble with the delete code!

[cfd33]

Once again I'm having trouble.

I used the code from Beacon's tutorial :

Private Sub cmdDelete_Click()    
If MsgBox("Are you sure you want to delete this record?", vbYesNo + vbQuestion, "Delete?") = vbNo Then      
'check if you really want to delete this record        
Exit Sub 'exit the command    
Else        
    If Not (rs.BOF = True Or rs.EOF = True) Then            
        rs.Delete 'delete the current record            
            If Not (rs.BOF = True Or rs.EOF = True) Then                
               rs.MoveNext 'move next            
                  If rs.EOF Then rs.MoveLast                
                  fillfields            
           End If        
    End If    
End If
End Sub

but everytime I try to delete the record I get the 3021 error.

"Either BOF or EOF is True, or the current record has been deleted.