пример для подражания

On Error GoTo ErrorHandler

'recordset and connection variables

Dim rstEmployees As ADODB.Recordset

Dim strSQL As String
Dim strFirstName As String
Dim strLastName As String




' Open Employees Table with a cursor that allows updates
Set rstEmployees = New ADODB.Recordset
strSQL = "Employees"
rstEmployees.Open strSQL, currentproject.connection, adOpenKeyset, adLockOptimistic, adCmdTable

' Get data from the user
strFirstName = Trim(InputBox("Enter first name:"))
strLastName = Trim(InputBox("Enter last name:"))



rstEmployees.AddNew
rstEmployees!firstname = strFirstName
rstEmployees!LastName = strLastName
rstEmployees.Update