ADO数据库问题？

Question

设置以后要刷新 adodc1.refresh datagrid1.refresh

Answer 1

Private Sub Form_Load()
    Dim conn As Connection
    Set conn = New Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\Test.mdb;Persist Security Info=False"
    
    Dim cmd As Command
    Set cmd = New Command
    Set cmd.ActiveConnection = conn
    cmd.CommandText = "test"
    
    Dim rs As Recordset
    Set rs = New Recordset
    rs.CursorLocation = adUseClient
    rs.Open cmd, , adOpenDynamic, adLockBatchOptimistic
    
    Set Adodc1.Recordset = rs
    
    Set DataGrid1.DataSource = rs
End Sub

Answer 2

非常感谢您，原来要执行rs.CursorLocation = adUseClient这条语句！