数据库的数据类型
数据库情况如下：

ID JOB data1 data2 data3
1 223 2011-7-16 8:06:00 2011-7-18 15:54:25 2.325289

我在ACCESS里面把data3定义为单精度类型数字，但是在VB中查询却出现了问题：

代码如下：
x = Val(Text8.Text)
AdoSeekDatazhs.Open "Select * From data Where data1 >= #" & Text3.Text & "# and data2 <= #" & Text4.Text & "#+1 and data3 > x", db, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = AdoSeekDatazhs
cfhszs = AdoSeekDatazhs.RecordCount

调试时显示：
实时错误 '-2147217904 （80040e10）'：
至少一个参数没有被指定值。

请问怎么错了呢？Val函数返回的值和数据库不匹配？那应该怎么改呢？

[解决办法]
x = Val(Text8.Text)
AdoSeekDatazhs.Open "Select * From data Where data1 >= #" & Text3.Text & "# and data2 <= #" & Text4.Text & "#+1 and data3 > " & x, db, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = AdoSeekDatazhs
cfhszs = AdoSeekDatazhs.RecordCount

[解决办法]
结帖率：0.00%

*********************
解决问题要结帖，