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

不加with也可以的 只是为了写代码简便

而且 你这个例子完全可以把with 和end with去掉... 根本没用上

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

with只是代替一个对象，本例中代替Adodc1，在With Adodc1和End With之间，直接打.就可以引用这个对象（不知道这样说对不对？）