用年龄段查询时查不出数据？

打字比你快

在窗体年龄段里输入10-100查询时没有一个数据，改成10-99可以查询出数据来，再改成9-任何数字都查不出数据不。不知道是什么原因，请帮忙看看。谢谢！见附件。

打字比你快

原来“年龄”字段数据类型应该用“数字”型，而且在查询时，数字型不加单引号即:
Dim hs As String
   
    hs = ""
   
    If Not IsNull(Me.Text2) Then
        hs = hs & "([年龄] >= " & (Me.Text2) & ") AND "
    End If
    If Not IsNull(Me.Text4) Then
        hs = hs & "([年龄] <= " & (Me.Text4) & ") AND "
    End If
   
    If Len(hs) > 0 Then
      
        hs = Left(hs, Len(hs) - 5)
    End If
      
    Debug.Print hs
   
    Me.查询1子窗体.Form.Filter = hs
    Me.查询1子窗体.Form.FilterOn = True