Access + VB

[CORBA]

Открываю бд след. образом

Код: Выделить всё


Public Sub OpenRecordset()
On Error GoTo err_occur
   If cnn Is Nothing Then
    Set cnn = New ADODB.Connection
    With cnn
      .CursorLocation = adUseClient
      .CommandTimeout = 300
      .Provider = Server
      .Properties("Data Source") = Database
     
      '.Properties("User id") = User
      '.Properties("Password") = Password
      .Open
    End With
   End If
         
   If rst Is Nothing Then
      Set rst = New ADODB.Recordset
       rst.Open Table, cnn, adOpenKeyset, adLockOptimistic, _
                    adCmdTable
       If Not (rst.BOF And rst.EOF) Then rst.MoveFirst
  End If
  Exit Sub
err_occur:
  MsgBox "Îøèáêà ïðè îòêðûòèè áàçû äàííûõ."
End Sub

в данном случае все изменения в датагриде сразу же отражаются в бд, а хотелось бы чтобы они фиксировались только после вызова rst.Update, например. Как это сделать?

[GSerg]

http://msdn.microsoft.com/library/defau ... batchx.asp ?