Public Function rekordset_add(mdb_file As String, _
table_name As String, pole1 As String, znach1 As Variant)

Dim AdoConnection '' As ADODB.Connection
    Dim RSBaza '' As ADODB.Recordset
    Dim ConnectionString As String
    Dim Table As String
    Dim kritBD As String
    Set AdoConnection = CreateObject("ADODB.Connection")
    Set RSBaza = CreateObject("ADODB.Recordset")
    
    ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdb_file & _
    ";Mode=Share Deny None;Persist Security Info=False"
    
    AdoConnection.Open ConnectionString
    RSBaza.Open "SELECT * FROM " & table_name, AdoConnection
   

RSBaza.AddNew
RSBaza.Fields(pole1) = znach1


RSBaza.Update
Set RSBaza = Nothing

End Function