With Adodc1
例：Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 数据表名 “
Adodc1.Refresh
DataGrid1.Refresh
End With