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

下面这段代码可以筛选数据库
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' 参数类型不下确，或不在可以接受的范围之内，或与其它参数冲突
请问错在哪里
vb --------------------编程问答-------------------- Form1.rec1.Filter = "cj>" & Text5.Text
--------------------编程问答-------------------- Form1.rec1.Filter = "cj>"& Val(Text5.Text) &""
--------------------编程问答--------------------

引用 2 楼 Leftie 的回复:

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

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

补充：VB ,  数据库(包含打印，安装，报表)