vb中recordset属性filter使用问题，急！

[QYS98]

下面这段代码可以筛选数据库
Private Sub Command1_Click()
Form1.rec1.Filter = "cj>60"
End Sub
但是当我想用一个文本框输入变量时，如下：
Private Sub Command1_Click()
Form1.rec1.Filter = "cj>Val(Text5.Text)"
End Sub
系统显示
实时错误'3001' 参数类型不下确，或不在可以接受的范围之内，或与其它参数冲突
请问错在哪里

[worldy]

引用 2 楼 Leftie 的回复:

Form1.rec1.Filter = "cj>"& Val(Text5.Text) &""

老兄，你干嘛还要弄个val转换为数值？你转换为数值后，&操作，又将其转回字串了

[worldy]

Form1.rec1.Filter = "cj>" & Text5.Text

[饮水需思源]

Form1.rec1.Filter = "cj>"& Val(Text5.Text) &""