Private Sub Option1_Click(Index As Integer)
'这个控件知道使用及判断进入吧?
Adodc9.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" + Chr(34) +
App.Path & "\整治.mdb"+ Chr(34) & ";Jet OLEDB:Database Password=ch23;"
'打开有密码数据库,密码为“ch23”
= adCmdTable
Adodc9.RecordSource = "归档盒名表"
'改这里的表名就可以了
Adodc9.Refresh
Set DataGrid1.DataSource = Adodc9
End Sub