vb连接access数据库问题 （如何在一个文本框中显示数据库最后一行某一列的数据）

首先设置好Adodc1（你建立的Adodc控件名称）的connet属性为access,DatabaseName属性为你数据库的名称，还有RecordSource属性。然后设置text1的DataSource属性为Adodc1,DataField属性为你数据库第三列的字段名称（表中的每一列称为一字段）以上是设置部分
下面是代码部分：
'窗体变量声明
Dim WithEvents adoPrimaryRS As Recordset '声明记录集对象
'在窗体的加载事件中创建ADO对象
Private Sub Form_Load()
On Error GoTo GoError
Set adoPrimaryRS=New Recordset'创建记录集对象实例
Set text1.DataSource=adoPrimaryRS
adoPrimaryRS.MoveLast'定位于最后一条记录
Exit Sub
GoErorr:
Msgbox Err.Description
End Sub
若你不设置Adodc的属性可以将下面的代码放在语句Private Sub Form_Load()下面也是一样的
Dim db As Connection '声明连接对象
Set db =New Connection'创建连接对象实例
db.Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=在此填上你数据文件的全路径地址"

Adodc1.Recordset.Move (Adodc1.Recordset.RecordCount - 3)
text1.Text = Adodc1.Recordset.Fields(3)

就是一个Table
用javascript控制它的colspan 就可以啦