I did find the solution to this problem
I Used The Following Code
Code:
If Len(Trim(Me.f2_FilterField) & vbNullString) > 0 And Len(Trim(Me.f2_Value) & vbNullString) > 0 Then
If Me.f2_Value <> True Then
If Len(sSql) > 6 Then
sSql = sSql & " AND " & Me.f2_FilterField & "= '" & Me.f2_Value & "'"
Else
sSql = sSql & Me.f2_FilterField & "= '" & Me.f2_Value & "'"
End If
ElseIf Me.f2_Value = True Then
If Len(sSql) > 6 Then
sSql = sSql & " AND " & Me.f2_FilterField & "= " & Me.f2_Value
Else
sSql = sSql & Me.f2_FilterField & "= " & Me.f2_Value
End If
End If
End If