Private Function Save(Optional ByRef varErrNo As Variant) As Integer
    Dim blnInTrans As Boolean
    Dim strCmd1 As String
    Dim strCmd2 As String
    Dim rst As ADODB.Recordset
    Dim cmd As ADODB.Command
    Dim cnn As ADODB.Connection
    Dim lngWait As Long
    Dim lngW As Long
    Dim intRetryCount As Integer
On Error GoTo  999 

    blnInTrans = False
       strCmd1 = "INSERT INTO ..."
       strCmd2 = "UPDATE tbl ..."
 
    Set cnn = CurrentProject.Connection
    Set cmd = New ADODB.Command
    With cmd
       Set .ActiveConnection = cnn
       .Properties("Jet OLEDB:Partial Bulk Ops") =  2 
       .CommandType = adCmdText

    cnn.BeginTrans
       blnInTrans = True

       .CommandText = strCmd1
       .Execute , , adExecuteNoRecords

       .CommandText = strCmd2
       .Execute , , adExecuteNoRecords

    cnn.CommitTrans
       blnInTrans = False
    End With
    Set cmd = Nothing

    Save =  0 

ExitHere:
    Set cmd = Nothing
    cnn.Close
    Set cnn = Nothing
    Exit Function

 999 :
    Save = - 4 
    If cnn.Errors.Count =  0  Then
       varErrNo = Err.Number
       If blnInTrans = True Then cnn.RollbackTrans
       MsgBox 
       GoTo ExitHere
    End If
    varErrNo = cnn.Errors( 0 ).SQLState
    Select Case varErrNo
    Case acnncLockErrCantSave1, acnncLockErrCantSave2, _
         acnncLockErrCantRead, _
         acnncLockErrCantUpdate1, acnncLockErrCantUpdate2, _
         acnncLockErrCantUpdate3, _
         acnncLockErrExclusive
 
       intRetryCount = intRetryCount +  1 
       If intRetryCount <=  5  Then
          DoEvents
          lngWait = intRetryCount ^  2  * _
                    Int((adhcLockUBound - adhcLockLBound +  1 ) _
                    * Rnd() + adhcLockLBound)
          For lngW =  1  To lngWait
              DoEvents
           Next lngW
          Resume
       Else
Cancelled:
          If blnInTrans = True Then
              cnn.RollbackTrans
          End If
       End If
    Case acnncErrRelativeIndex, acnncErrDublicateIndex
       If blnInTrans = True Then
          cnn.RollbackTrans
       End If
    Case acnncLockErrDatChngd, acnncErrDataBaseLocked
       If blnInTrans = True Then
          cnn.RollbackTrans
       End If
       MsgBox cnn.Errors( 0 ).SQLState & ": " & cnn.Errors( 0 ).Description
    Case acnncErrFileNotFound, acnncErrDataBaseFormat, acnncErrDataBaseLocked
       If blnInTrans = True Then
          cnn.RollbackTrans
       End If
    Case Else
       If blnInTrans = True Then
          cnn.RollbackTrans
       Else
       End If
    End Select
    GoTo ExitHere
End Function