Access里面“面积字段”查询时提示“标准表达式中数据类型不匹配"

 Private Sub 查询_Click()

Dim strWhere As String

If Not IsNull(Me.面积) Then strWhere = strWhere & " AND 面积='" & Me.面积 & "'"

If Not IsNull(Me.名称) Then strWhere = strWhere & " AND 名称='" & Me.名称 & "'"

strWhere = Mid(strWhere, 6)

Me.产品明细.Form.Filter = strWhere
Me.产品明细子窗体.Form.FilterOn = True

End Sub

字段“面积”为数字型
字段“名称”为文本型
“名称”字段可以正常查询;