主题：[求助]请问数字或双精度小数查找怎么写？？

 请问数字或双精度小数查找怎么写？？请大大们来解答~~

"长度","宽度","厚度"为双精度小数，不知道怎么写了

代码如下

Dim filter As String
Dim sts() As String = {"合同号","客户名称","业务员","长度","宽度","厚度","原料产地"}
For Each st As String In sts
    Dim  val As String = e.Form.Controls(st).value
    If val > "" Then
        val = val.Replace("*","[*]")
        If filter = "" Then
            filter = st & " like '*" & val & "*'"
        Else
            filter = filter & " and " & st & " like '*" & val & "*'"
        End If
    End If
Next


Tables("销售合同基础表").Filter = filter