ACCESS项目的模糊查询

fisher1013

神啊99我吧  现在使用ACCESS 项目 (以前是单机的)
遇到不好解决的问题 代码目的是想通过在文本框输入产品编号,通过模糊查询,查询某种系列的产品.
单机版代码(刘小军查询改的 已通过):
    Dim strWhere As String  '定义条件字符串
   
    strWhere = "" '设定初始值－空字符串
   
   
    If Not IsNull(Me.请输入产品编号) Then
        '有输入
        strWhere = strWhere & "([product_code] like '*" & Me.请输入产品编号 & "*') AND "
    End If
   

    If Len(strWhere) > 0 Then
        '有输入条件
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

    Me.产品列表.Form.Filter = strWhere
    Me.产品列表.Form.FilterOn = True


项目版:
    Dim strWhere As String

    strWhere = Null

    If (Me.[请输入产品编号]) <> Null Then
      
        strWhere = strWhere & "([product_code] like'% me.请输入产品编号%')"
   
   End If
  
    'If Len(strWhere) > 0 Then
     '   strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
   
     Me.产品列表.Form.Filter = strWhere
     Me.产品列表.Form.FilterOn = 1

通过调试 其他几处经过修改都通过了 问题是项目版的
"%me.请输入产品编号%"  SQL 不识别
如果换成"%J%" "%E%" 程序可以通过 能查询

但是我要的是我在文本框的输入能传递到LIKE中

跪求解答~~