快帮忙！！急！！

Question

这是SQL Server的例子，你改成Access的就可以了Private Sub Form_Load()
Dim conn As ADODB.Connection
Dim rst As ADODB.RecordsetSet conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=SERVER" 
conn.Open , "sa"rst.CursorLocation = adUseClientrst.Open "select * from table1", conn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rstEnd Sub

Answer 1

with datagrid
    set .datasource=rs
    .Refresh
end with