current recordset does not support scrolling backward

[mheiy]

im going to delete a record but i encounter an error of current recordset does not support scrolling backward..
here's my code

Private Sub cmdDelete_Click()
With tbDepartment
ans = MsgBox("Are you sure you want to delete this record?", vbYesNo + vbQuestion, "Wait")
        If ans = vbYes Then
           .Find "DepartmentName = '" & txtDepTitle.Text & "'"
            If .EOF = True Then
                MsgBox "Huh?"
            Else
                .Delete
                .Requery
                txtDepTitle = ""
            End If
        Else
            Refresh
        End If
End With
End Sub

Private Sub cmdGetDepartment_Click()
PickDepartment.Show
PickDepartment.cmdSelect.Visible = False
End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub Form_Load()
tbdepartment.open "Select * from tbdepartment", cn. adopendynamic, adloackoptimistic
end sub