数据库的数据类型

数据库情况如下：

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函数返回的值和数据库不匹配？那应该怎么改呢？

& "#+1 and data3 > x"
x要放在“外边