取得数据库中表字段总数的疑问(已贴代码和思路,求解)解决思路

取得数据库中表字段总数的疑问(已贴代码和思路,求解)
代码是:
private sub count()
 Dim Records, Current As Integer
  Records = Me.BindingContext(DSsyu1, "TBLocation").Count
  Current = Me.BindingContext(DSsyu1, "TBLocation").Position + 1
  Labsyu.Text = "record " & current.toString & " of " & Records.ToString
end sub

records取得数据表中的总和,current表示我现在的指针在哪个数据段
取得的数赋予给Lab~可是为什么每次运行以后显示都是Record 0 of 0??
环境:VS2003,VB.NET
实现方法:首先建立到数据库的连接,然后将lab控件绑定到数据库TBLocation表的某字段(type)中;
进入代码编辑页面,写如上过程,接着在页面加载的过程中添加如下代码
me.bindingcontext(dssyu1,"TBLocation").position=0
count
运行以后,应该可以显示我数据库表中的字段总数了啊?可是显示不出来...请高人求助!
一点分,谢谢您的帮助!
dssyu1:我的数据集名称

------解决方案--------------------
不会VB,帮顶
------解决方案--------------------
Dim conn as new oledbconnection 
dim ds as new dataset 
Dim apt as oledbdataadapter 
dim str as string="Select * from TabelName"
conn.connctionstring="..." 
conn.open 
apt=new oledbdataadapter(str,conn)'查询sql结果
apt.fill(ds,"table")'结果填充 table填充表名
取值时就用
ds.table(刚才填充的表名).rows(i)(字段名)'i 是从0开始的,字段中只有一个值只i=0就能取出这个值了