Access VBA

Write from Recordset

Private Sub cmdSaveCurRecord_Click()
On Error GoTo Err_cmdSaveCurRecord_Click

    Dim SQLstring       As String
    Dim myTable         As Recordset
    
    Set myTable = CurrentDb.OpenRecordset("MailingList")
   '  Set the recordSet
        With myTable
            .AddNew
            !First = Me.FirstName   ' Table items
            !Last = Me.LastName
            !Street = Me.StreetAddr
            !City = Me.City
            !State = Me.StateProv
            !Zip = Me.ZipCode
            !Priority = Me.Priority
            !Email=Me.EmailAddr
            !Exhb = Me.ExhibClass
            !Phone = Me.HomePhone
            !altkphone = Me.BizPhone
            .Update         ' Update it
        End With
        myTable.Close       ' Close to release memory
        

Exit_cmdSaveCurRecord_Click:
    Exit Sub

Err_cmdSaveCurRecord_Click:
    MsgBox Err.Description
    Resume Exit_cmdSaveCurRecord_Click
    
End Sub

See the picture below for the dialog in from of this code.