Private Function PrepareTheFilter() As Boolean
On Error GoTo vbError

PrepareTheFilter = False

Dim i As Integer

For i = 0 To cboOperator.Count - 1
    If cboOperator(i).Text = "LIKE" Then
        txtValue(i).Text = txtValue(i).Text & "*"
    End If
Next i

For i = 0 To txtValue.Count - 1
    If txtValue(i) <> "" Then

        Dim enm As DataTypeEnum

        enm = gFieldsDataType(cboFields(i).Text)

        Select Case enm

        Case adChar, adBSTR, adWChar
            txtValue(i).Text = "'" & txtValue(i).Text & "*'"

        Case adDate, adDBDate
            txtValue(i).Text = "#" & txtValue(i).Text & "#"

        Case adBigInt, adCurrency, adDecimal, adDouble, _
             adInteger, adNumeric, adSingle, adTinyInt, _
             adUnsignedBigInt, adUnsignedInt, adUnsignedSmallInt, _
             adUnsignedTinyInt, adSmallInt, adBoolean

            ' do nothing, - stops access to Case Else below
        Case Else
            txtValue(i).Text = "'" & txtValue(i).Text & "'"

        End Select
    End If
Next i

For i = 0 To cboFields.Count - 1
    ' This sub/sub procedure places square brackets around
    ' a field name which contains a space between words
    ' eg Last Name  becomes  [Last Name]
    Dim sNullStr As String
    Dim sStr As String
    Dim sNewStr
    Dim n As Integer

    ' store the original value
    sStr = cboFields(i).Text
    ' define the empty space to be found
    sNullStr = " "

    n = InStr(sStr, sNullStr)

    If n > 0 Then
        sNewStr = "[" & sStr & "]"
        cboFields(i).Text = sNewStr
    End If
Next i

PrepareTheFilter = True
Exit Function
vbError:
fs.Error
End Function