这个测试的代码
？

Private Sub Form_Load()
'数据库初始化
'连接数据库,App.Path 为当前目录,数据库.mdb为Access数据库,按实际更改,其余的不能更改

Adodc1.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\数据库.mdb; Jet OleDb:DataBase Password=1234" '数据库密码是1234
Adodc1.RecordSource = "表1"         '表1 为数据库里的一个表,按实际更改
Adodc1.Refresh                      '刷新数据

End Sub


就是这样的代码,,请指教

Adodc1.RecordSource = "表1"
改成
Adodc.RecordSource = "select * from 表1"
就可以了