如何让绑定数据的DataGrid在执行某个命令时才一次保存所有的修改数据
http://go1.163.com/~askpro/msg24/qa07.htm
批 更 新 打 开 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