База Access.
Dim db_file As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
db_file = IniMassivPrivate("База", App.Path & "\conn.ini")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_file & ";Persist Security Info=False"

Set rs = New Recordset Invalid use of New keyword
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Source = "baza"
rs.ActiveConnection = conn
rs.Open
rs.AddNew
rs.Fields("mec") = Combo1.Text
rs.Fields("ep") = txtEP
rs.Fields("et") = txtET
rs.Fields("er") = lblER
rs.Fields("gt") = txtGT
rs.Fields("gp") = txtGP
rs.Fields("gr") = lblGR
rs.Fields("vt") = txtVT
rs.Fields("vp") = txtVP
rs.Fields("vr") = lblVR
rs.Fields("rez") = lblRez
rs.Update
rs.Close
conn.Close

Спасибо