Problemer med at finde data i database

Hej jeg har et problem med at når jeg skal finde en person i min database og der ikke står noget i feltet får jeg en fejl der siger Run-time error '94': Invalid use of Null. Min kode er som følgende.

Private Sub cmdFind_Click()

Dim A As Integer
'Finder den ansatte som passer til det førernr der er blevet indtastet
A = Len(txtFørernr.Text)
If A <> 4 Then
MsgBox "Førernr skal være på 4 tal.", vbExclamation + vbOKOnly, "Førernr ikke indtastet Korekt"
txtFørernr.SetFocus
Exit Sub
End If

denAnsatte.rscomAnsatte.Open
denAnsatte.rscomAnsatte.MoveFirst
denAnsatte.rscomAnsatte.Find "Førernr ='" + txtFørernr + "'", 0, adSearchForward
If Not (denAnsatte.rscomAnsatte.EOF) Then
txtCprnr = denAnsatte.rscomAnsatte.Fields("Cprnr")
txtNavn = denAnsatte.rscomAnsatte.Fields("Navn")
txtMellemnavn = denAnsatte.rscomAnsatte.Fields("Mellemnavn")
txtEfternavn = denAnsatte.rscomAnsatte.Fields("Efternavn")
txtAdresse = denAnsatte.rscomAnsatte.Fields("Adresse")
txtPostnr = denAnsatte.rscomAnsatte.Fields("Postnr")
txtBy = denAnsatte.rscomAnsatte.Fields("By")
txtFradrag = denAnsatte.rscomAnsatte.Fields("Fradrag")
txtTrækprocent = denAnsatte.rscomAnsatte.Fields("Trækprocent")
txtRegnr = denAnsatte.rscomAnsatte.Fields("Regnr")
txtKontonr = denAnsatte.rscomAnsatte.Fields("Kontonr")
chkDag = denAnsatte.rscomAnsatte.Fields("Dag") * -1
chkNat = denAnsatte.rscomAnsatte.Fields("Nat") * -1
chkAfløser = denAnsatte.rscomAnsatte.Fields("Afløser") * -1
txtFørernr.Enabled = True
txtCprnr.Enabled = True
txtNavn.Enabled = True
txtMellemnavn.Enabled = True
txtEfternavn.Enabled = True
txtAdresse.Enabled = True
txtPostnr.Enabled = True
txtBy.Enabled = True
txtFradrag.Enabled = True
txtTrækprocent.Enabled = True
txtRegnr.Enabled = True
txtKontonr.Enabled = True
chkDag.Enabled = True
chkNat.Enabled = True
chkAfløser.Enabled = True
Else
MsgBox "Det indtastede førernr eksisterer ikke.", vbExclamation + vbOKOnly
txtFørernr.Enabled = True
txtCprnr.Enabled = True
txtNavn.Enabled = True
txtMellemnavn.Enabled = True
txtEfternavn.Enabled = True
txtAdresse.Enabled = True
txtPostnr.Enabled = True
txtBy.Enabled = True
txtFradrag.Enabled = True
txtTrækprocent.Enabled = True
txtRegnr.Enabled = True
txtKontonr.Enabled = True
chkDag.Enabled = True
chkNat.Enabled = True
chkAfløser.Enabled = True
End If

denAnsatte.rscomAnsatte.Close

End Sub