Currently the code below filter two combo boxes to filter a report. I would like to use three now to do the same thing. When I add the extra combo box I get the error mesage, "No Data found" or "Data type mismath". Any ideas why this is happening or could you revise the code below to filter with three combo boxes.



Private Sub Command65_Click()
On Error GoTo MyErr
strFilter = "[myfield1]=" & Nz("'" + Me![Combo61] + "'", "[myfield1]") & " AND "
strFilter = strFilter & "[myfield2]=" & Nz("'" + Me![Combo63] + "'", "[myfield2]")
DoCmd.OpenReport "MyReportsName", acViewPreview, , strFilter
MyExit:
Exit Sub
MyErr:
If Err.Number <> 2501 Then
MsgBox Err.Description
End If
Resume MyExit
End Sub