帮忙看一下这段代码错在哪里

小蓓

Private Sub cmd查询_Click()
On Error GoTo Err_cmd查询_Click
       Dim strWhere As String
    strWhere = ""
    If Not IsNull(Me.地区) Then
          strWhere = strWhere & "([地区] like '*" & Me.地区 & "*') AND "
            End If
If Not IsNull(Me.公司名称) Then
          strWhere = strWhere & "([公司名称] like '*" & Me.公司名称 & "*') AND "
    End If
     If Not IsNull(Me.公司地址) Then
          strWhere = strWhere & "([公司地址] like '*" & Me.公司地址 & "*') AND "
    End If
     If Not IsNull(Me.联系人) Then
          strWhere = strWhere & "([联系人] like '*" & Me.联系人 & "*') AND "
    End If
     If Not IsNull(Me.联系方式) Then
          strWhere = strWhere & "([联系方式] like '*" & Me.联系方式 & "*') AND "
    End If
     If Not IsNull(Me.机型) Then
          strWhere = strWhere & "([机型] like '*" & Me.机型 & "*') AND "
    End If
     If Not IsNull(Me.出厂机型) Then
          strWhere = strWhere & "([出厂机型] like '*" & Me.出厂机型 & "*') AND "
    End If
     Debug.Print strWhere
    Me.资料查询子窗体.Form.Filter = strWhere
    Me.资料查询子窗体.Form.FilterOn = True
   
         
Err_cmd查询_Click:
    MsgBox Err.Description
    End Sub

这些字段都是文本型的，现在提示的是你不能将数值指定给这个对象

一点通

很多时候写出的代码并一定是错的,要看实际用在什么地方,出错的问题也会多样化,单凭代码很难分析问题所在,所以,以后问问题时最好能附上例子,以便找出原因,谢谢