Application VisualBasic Script

Private Sub cmdSave_Click()
    '
    DoCmd.RunCommand acCmdSaveRecord
End Sub