'部件里
添加ADODC
'部件
添加DataGrid
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:22.mdb

ersist S
ecurity Info=False" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select * from itb1" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub