vb 怎样读取数据库里面某个表的值啊

Question

有个DB.mdb的数据库，里面有个TWorkTime的表，怎样把里面的四个值读出来，显示在四个文本框里。这个按钮的代码怎样写啊，求解答。

Answer 1

call con   '''连接数据库
sql="select * from TWorkTime"
rs.open sql,cnn,3,3
if  not rs.eof then text2.text=rs!mstrartTime
call closeData '''关闭数据库
''''''con   closeData  分为为自己写的打开与关闭数据库的函数