Data type mismatch in criteria expression (1 Viewer)

Private Sub cmdMarkEntered_Click()
Dim db As DAO.Database
Dim rst As Recordset
Dim qdf As QueryDef

Set db = CurrentDb
Set qdf = db.QueryDefs("qryfrmRefTrackingEntryNeeded")
For Each prm In qdf.Parameters
    prm.Value = Eval(prm.Name)
Next prm
[B]Set rst = qdf.OpenRecordset[/B]
Do While Not rst.EOF
 
   With rst
       .Edit
       !DataEntry = True
       !EntryDate = Now
       !EntryStaff = Me.txtUser.Value
       .Update
       .MoveNext
   End With
   
Loop

'Cleanup
Me.sfrmReferralDataEntry.Form.Refresh
rst.Close
Set rst = Nothing
End Sub

SELECT qryCasesReferralAll.CaseNbr, qryCasesReferralAll.SampleNbr, qryCasesReferralAll.ProviderNbr, qryCasesReferralAll.ProviderName, qryCasesReferralAll.CUID, qryCasesReferralAll.Provider, qryCasesReferralAll.PatientName, qryCasesReferralAll.MedRecNbr, qryCasesReferralAll.MedicaidID, qryCasesReferralAll.AdmitDate, qryCasesReferralAll.DischDate, qryCasesReferralAll.ReviewLevel, qryCasesReferralAll.Outcome, qryCasesReferralAll.ReviewDate,  qryCasesReferralAll.DataEntry, qryCasesReferralAll.EntryDate, qryCasesReferralAll.EntryStaff
FROM qryCasesReferralAll
WHERE (((qryCasesReferralAll.DataEntry)=False));

SELECT tlkpReview.CaseNbr, tblWkshtHeader.SampleNbr, tblWkshtHeader.ProviderNbr, tblWkshtHeader.ProviderName, tblWkshtHeader.CUID, tblWkshtHeader.Provider, tblWkshtHeader.PatientName, tblWkshtHeader.MedRecNbr, tblWkshtHeader.MedicaidID, tblWkshtHeader.AdmitDate, tblWkshtHeader.DischDate, tlkpReview.ReviewLevel, tlkpReview.Outcome, tlkpReview.ReviewDate, tlkpReview.ReviewStaff, tlkpReview.LetterSent, tlkpReview.LetterDate, tlkpReview.LetterStaff, tblReferralTracking.Specialty1, tblReferralTracking.Specialty2, tblReferralTracking.Specialty3, tblReferralTracking.Specialty4, tlkpReview.DataEntry, tlkpReview.EntryDate, tlkpReview.EntryStaff, tblReferralTracking.NeedPC1, tblReferralTracking.PC1Assigned, tblReferralTracking.PC1Specialty, tblReferralTracking.UploadDate, tblReferralTracking.PC1ReturnDate, tblReferralTracking.PC1EntryDate, tblReferralTracking.PrelimLetterDate, tblReferralTracking.PrelimLetterStaff, tblReferralTracking.PC2Assigned, tblReferralTracking.PC2Specialty, tblReferralTracking.PC3Assigned, tblReferralTracking.PC3Specialty, tblReferralTracking.UR, tblReferralTracking.DRG, tblReferralTracking.QUAL
FROM tblWkshtHeader INNER JOIN (tlkpReview INNER JOIN tblReferralTracking ON tlkpReview.CaseNbr = tblReferralTracking.CaseNbr) ON tblWkshtHeader.CaseNbr = tlkpReview.CaseNbr
WHERE (((tblWkshtHeader.SampleNbr)>="1807.1.MULT.OFF") AND ((tlkpReview.ReviewLevel) Like "*PRA") AND ((tlkpReview.Outcome)="Referral") AND ((tlkpReview.ReviewDate)>=[Forms]![frmReferralDataEntry]![txtReviewDate] And (tlkpReview.ReviewDate)<[Forms]![frmReferralDataEntry]![txtReviewDate]+1));