Private Sub Form_Load()
'数据库初始化
'连接数据库,App.Path 为当前目录,数据库.mdb为Access数据库,按实际更改,其余的不能更改
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;Persist Security Info=False"
Adodc1.RecordSource = "表1" '表1 为数据库里的一个表,按实际更改
Adodc1.Refresh '刷新数据
Adodc1.Recordset.MoveNext
End Sub
一定行!你是用adodc来连数据库的吧