VB写ACCESS数据库判断条件的问题。。。

'思路：
'一 读取数据库到datatable。

'二遍历数据表，依次比对，符合条件终止。

dim tb as datatable=new accesshelper.gettable("select 711,713,715,717 from [tablename]")
'建议做个accesshelper类，处理access数据库的读写更新删除等操作。需要的话我传个给你

dim r =tb.rows.count '数据行数
dim c=tb.colums.count‘数据列数
dim a as single=textbox1.text

dim i,j as integer
dim c,d as integer 'C\D用来返回就是所在的栏索引
while i while j
if tb(i)(j)<=a and j if tb(i)(j+)>=a then
c=i
d=j
exit while
end if
end if
j+=1
end while
i+=1
end while

if c >0 and d>0 then
返回tb.cloums(c).value和b.cloums(d).value。
两个数值范围应该是td(i-1)(c),td(i-1)(d)

看上去似乎在滥用数据库哦……
字段名字 尽量不要用 数字 ！这样在后续 会遇到很多的麻烦……
另外不知道 你要判断什么……应该详细描述一下 才可以哦