It doesn't like the strWhere line saying there is a data type mismatch.
Code:
If Not IsNull(Me.C01) Then
'
Dim db As DAO.Database
Dim rcdFindMatch As DAO.Recordset
Set db = CurrentDb
Set rcdFindMatch = db.OpenRecordset("Complaint", dbOpenDynaset)
Dim strWhere As String
strWhere = "[C01] = " & C01
rcdFindMatch.FindFirst strWhere
If rcdFindMatch.NoMatch Then
MsgBox "The grievant number does not exist", vbInformation, "Grievant Number Not Found"
rcdFindMatch.Close
Set rcdFindMatch = Nothing
C01.SetFocus
Exit Sub
Else
DoCmd.OpenForm "frmFactSheet", acNormal, , , , , C01.Value
End If
'
Else
Debug.Print "y"
MsgBox "Please enter grievant number."
Me.C01.SetFocus
End If