Åú ¸ü ÐÂ ´ò ¿ª ADODB.Recordset. 
    Project: Form1¡¢ Command1¡¢ Command2¡¢ DataGrid1 
    Ref: ADO 
    ´ú Âë : 
    Option Explicit 
    Dim adoConnection As ADODB.Connection 
    Dim adoRecordset As ADODB.Recordset 
    Private Sub Command1_Click() 'Save Commit 
    adoRecordset.UpdateBatch 
    End Sub 
    Private Sub Command2_Click() 'Cancel Rollback 
    adoRecordset.CancelBatch 
    End Sub 
    Private Sub Form_Load() 
    Set adoConnection = New ADODB.Connection 
    'adoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=northwindcs" 
    'adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\MyVBP\DBData\NWind2K.mdb;Persist Security Info=False" 
    adoConnection.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=E:\MyVBP\DBData\NWind97.mdb;Persist Security Info=False" 
    Set adoRecordset = New ADODB.Recordset 
    adoRecordset.CursorLocation = adUseClient 'AccessÐè Òª 
    adoRecordset.Open "²ú Æ· ", adoConnection, adOpenKeyset, adLockBatchOptimistic 
    Set DataGrid1.DataSource = adoRecordset 
    End Sub 
<END>