AddNew Method Example (MDB)

The following example creates a new record in an Employees table and saves the changes:

Sub AddNewRecord(ByVal rst As Recordset, _
    strLast As String, strFirst As String)
    
    With rst
        .AddNew                            ' Add new record.
        !LastName = strLast            ' Add data.
        !FirstName = strFirst
        .Update                            ' Save changes.
    End With
End Sub