MÌnh đang làm 1 form điều động nhân sự Các bạn giúp mình xem code này với nó cứ báo lỗi "Runtime-eror 3021" No current record

Private Sub Cmd_Dieudong_Click()
Dim DK As String
If IsNull(Me.MANV) Or Me.MANV = "" Then
MsgBox "Vui long nhap User Name", vbOKOnly, "Thong bao"
Me.MANV.SetFocus
Else
Dim HOI
DK = Me.MANV
HOI = MsgBox("BAN CO CHAC CHAN DIEU DONG NHAN SU NAY KHONG?", vbOKCancel, "Thoâng baùo")
If (HOI = vbOK) Then
Dim db As DAO.Database
Dim TB As DAO.Recordset
Set db = CurrentDb
Set TB = db.OpenRecordset("NHANVIEN", DB_OPEN_TABLE)
TB.Index = "PRIMARYKEY"
TB.Seek "=", DK
TB.Edit "Lỗi chỗ này"
TB!MAPB = Me.PBMOI
TB!MACV = Me.CVMOI
TB!LUONGCB = Me.LUONGMOI
TB.Update
End If
End If
End Sub

Lưu ý khi dùng Seek. Nếu tìm không thấy thì báo lỗi. Nếu tìm thấy thì mới Edit.
Thân mến

Chào bạn !
Sau code: TB.Seek "=", DK
Bạn thêm:
If Not TB.NoMatch Then 'Nếu tìm thấy
TB.Edit
...
(Code của bạn)
Thân chào !