Hentning af afkrydsningstegn i access database

Hej

Jeg er ved at lave et program i Visual Basic 6.0 hvor jeg skal hente nogle oplysninger i en access database. mit problem består i at jeg skal hente nogle afkrydsningsfelter men jeg får en fejl hver gang. Det jeg ikke forstår er at jeg sagtens kan gemme dem men ikke hente dem igen. Mit script er som følge

Her gemmer jeg mine Data
denAnsatte.rscomAnsatte.AddNew
denAnsatte.rscomAnsatte.Fields("Førernr") = txtFørernr.Text
denAnsatte.rscomAnsatte.Fields("Navn") = txtNavn.Text
denAnsatte.rscomAnsatte.Fields("Adresse") = txtAdresse.Text
denAnsatte.rscomAnsatte.Fields("Postnr") = txtPostnr.Text
denAnsatte.rscomAnsatte.Fields("By") = txtBy.Text
denAnsatte.rscomAnsatte.Fields("Fradrag") = txtFradrag.Text
denAnsatte.rscomAnsatte.Fields("Trækprocent") = txtTrækprocent.Text
denAnsatte.rscomAnsatte.Fields("Dag") = chkDag
denAnsatte.rscomAnsatte.Fields("Nat") = chkNat
denAnsatte.rscomAnsatte.Fields("Afløser") = chkAfløser
denAnsatte.rscomAnsatte.Update

Og her finder jeg mine data
denAnsatte.rscomAnsatte.MoveFirst
denAnsatte.rscomAnsatte.Find "Førernr ='" + txtFørernr + "'", 0, adSearchForward
If Not (denAnsatte.rscomAnsatte.EOF) Then
txtNavn = denAnsatte.rscomAnsatte.Fields("Navn")
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")
chkDag = denAnsatte.rscomAnsatte.Fields("Dag")
chkNat = denAnsatte.rscomAnsatte.Fields("Nat")
chkAfløser = denAnsatte.rscomAnsatte.Fields("Afløser")

Det skal lige siges at der ikke er nogle problemer hvis der ikke er sat nogle afkrydsnings mærker