Dim rst As New ADODB.Recordset
    Dim sql As String

    sql =  "SELECT * FROM Products Where Id_Product = 1 "
    
    rst.Open sql, cnnAccess, adOpenDynamic, adLockOptimistic
    
    With rst
        .AddNew
            !Id_Customer = Id_Customer
        .Update
    End With
    
    rst.Close
    Set rst = Nothing

Public cnnAccess As New ADODB.Connection
 --------------------------------
 
Function Work() as Boolean
Dim Result as Boolean

cnnAccess.CursorLocation = adUseClient
cnnAccess.Open  "Provider=Microsoft.Jet.OLEDB.4 . 0 ;" & _
            "Data Source=\\Dom\D\Data\lab.mdb;"  ' & _


cnnAccess.BeginTrans
Result = AddProduct(Id_Customer, Name)

If Result Then
    cnnAccess.RollbackTrans
    GoTo CancelHandler
End If

cnnAccess.CommitTrans
cnnAccess.Close
Set cnnAccess = Nothing

Exit Sub
CancelHandler:

cnnAccess.Close
Set cnnAccess = Nothing
Work = True
MsgBox "Error"

End Sub
------------------------------
Function AddProduct(Id_Customer as Long, Name as String) as Boolean

    Dim rst As New ADODB.Recordset
    Dim sql As String

    sql = "SELECT * FROM Products Where Id_Product = 1"
    
    rst.Open sql, cnnAccess, adOpenDynamic, adLockOptimistic
    
    With rst
        .AddNew
            !Id_Customer = Id_Customer
            !Name = Name
        .Update
        AddProduct = True
    ' ПОСЛЕ ЭТОГО ВСЯ ТАБЛИЦА БЛОКИРУЕТСЯ ПОКА ИЗ ПРОГИ НЕ ВЫЙДЕШЬ!!!
    End With
    
    rst.Close
    Set rst = Nothing


End Function
 ------------------------------