Thank you, it worked, this is what i did:
Private Sub Form_Current()
Me.medicaidcheckbox = DCount("*", "InsuranceList", "InsType Like '*Medicaid*' AND DrID=" & Nz(Me.DrID, 0)) > 0
If DCount("*", "InsuranceNotes", "InsuranceNotes <> null AND DrID=" & Nz(Me.DrID, 0)) > 0...