不能查询，请老师看看，错在哪里

Private Sub cmd查询_Click()
On Error GoTo Err_cmd查询_Click

    Dim stDocName As String
   
    strwhere = ""    '设定初始值－空字符串

    If Not IsNull(Me.公司名称) Then
       strwhere = strwhere & "([公司名称] like '" & Me.公司名称.Column(1) & "*') AND "'返回公司名称组合框第二列的内容
    End If

    If Not IsNull(Me.机号) Then
        strwhere = strwhere & "([机号] = '" & Me.机号 & "#') AND "
    End If
  
   
    '先在立即窗口显示一下strWhere的值，代码调试完成后可以取消下一句
   strwhere = Left(strwhere, Len(strwhere) - 4)'去掉后面多出来的"AND"字符
    Debug.Print strwhere

    '让子窗体应用窗体查询
    Me.订单子窗体.Form.Filter = strwhere
    Me.订单子窗体.Form.FilterOn = True
   
Exit_cmd查询_Click:
    Exit Sub

Err_cmd查询_Click:
    MsgBox Err.Description
    Resume Exit_cmd查询_Click
   
End Sub