Can't spot the mismatch error

[GraeagleBill]

I Get:




The error occurs on the DLookup. In the switchboard, ItemHelp is String; QSwitchboard is table; SwitchboardID is number; ItemNumber is number.

Code:

Public Function ChoseDay(MenOpt As Integer)
Dim strHELPFile As String


On Error GoTo ErrorHandler


If bolHELP Then
    If SwitchboardID = 2 And MenOpt = 5 Then
        strHELPFile = Nz(DLookup("ItemHelp", "QSwitchboard", "SwitchboardID = 2" And "ItemNumber = 5"))
        If Len(strHELPFile) > 0 Then Call ShowHELP(strHELPFile)
        Exit Function
    End If
End If


'Bypass choice options if we're not in the Menus options
If SwitchboardID <> 2 Then
    Call HandleButtonClick(MenOpt)
    Exit Function
End If


Me.lblChoose.Visible = True
Me.cboChoose.Visible = True
Me.cboChoose.SetFocus
Me.cboChoose.Dropdown


ErrorHandler:
    MsgBox "Error encountered in 'ChoseDay'.  Menu ID is " & SwitchboardID & " and the menu item is " & MenOpt & _
           " The error is " & Err.Number & " and description is: " & Err.Description
           Exit Function


End Function

[June7]

And needs to be within the quotes.

strHELPFile = Nz(DLookup("ItemHelp", "QSwitchboard", "SwitchboardID = 2 And ItemNumber = 5"))

[GraeagleBill]

Thanks June! As usual, staring me right in the face!