VBA

I made Admin form, and it can connect to other forms.
Members who have account of admin level can management schedule, member, and tasks.

When click the save bottom, check the input and then update Member table.
    Dim oRS As DAO.Recordset

    If InputCheck() = False Then
       Exit Sub
    End If

    Set oRS = CurrentDb.OpenRecordset("Member", dbOpenDynaset)

    With oRS

        .AddNew

        .Fields("First_Name").Value = Me.txtFirstName.Value
        .Fields("Last_Name").Value = Me.txtLastName.Value
        .Fields("DOB").Value = Me.txtBirth.Value
        .Fields("Phone_num").Value = Me.txtPhone.Value
        .Fields("Team_ID").Value = Me.cbTeam.Value
        .Fields("Login_ID").Value = Me.txtLoginID.Value
        .Fields("Email").Value = Me.TxtPassword.Value
        .Fields("Password").Value = Me.TxtPassword.Value
        .Fields("User_Status").Value = Me.cbStatus.Value
     
        .Update

    End With

    oRS.Close
    Set oRS = Nothing

    MsgBox Me.txtFirstName & " Compleated Register", vbOKOnly + vbInformation, "Register"

    DoCmd.Close acForm, "Member"

End Sub

I done register function, and next is task management function..