最好有查询定位条件，比如这一行的index索引项的值，知道字段名（确定列），用VB连接数据库，sql查询语句查询，将查询出的某行某列的数据显示到文本框就可以了，
把这段代码录入到某个按钮中,text0是某个文本框。
Dim db As DataBase
dim rst As DAO.Recordset
Set db=OpenDataBase("C:\test.mdb")
Set rst=db.OpenRecordset("表A")
rst.MoveFirst '用rst.Move xx可以表示将记录集移动到第某行。
Me.text0.text=rst(k) 'k为目标列，范围为0至【字段总数-1】之间，即0表示第1列。
rst.Close
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024