 If Text1.text = "" Then
        MsgBox "Imposible! Please input a Name too!", vbCritical
        GoTo ext
    ElseIf Text2.text = "" Then
        MsgBox "Imposible! Please input a Username too!", vbCritical
        GoTo ext
     ElseIf Text3.text = "" Then
        MsgBox "Imposible! Please input a Password too!", vbCritical
        GoTo ext
    ElseIf cbType.text = "" Then
        MsgBox "Please dont forget to assign an Account Type!", vbCritical
        GoTo ext
    ElseIf MsgBox("Are you sure you want to save " & Text2.text & " record?", vbYesNo) = vbYes Then
        Adodc1.Recordset.Save

        
        cmdSave.Enabled = False
        cmdCancel.Enabled = False
        cmdAdd.Enabled = True
        cmdEdit.Enabled = True
        cmdDelete.Enabled = True
                   
        MsgBox "Succesfully Save!", vbInformation
        isNewRecord = True
        dgUser.Enabled = True
        cmdSave.Caption = "Save"
        dgUser.Enabled = True
        
        Text1.Enabled = False
        Text2.Enabled = False
        Text3.Enabled = False
        cbType.Enabled = False
    Else
        Adodc1.Recordset.CancelBatch
        cmdAdd.Enabled = True
        cmdEdit.Enabled = True
        cmdDelete.Enabled = True
        cmdSave.Caption = "Save"
        cmdCancel.Enabled = False
        cmdSave.Enabled = False
        Adodc1.Refresh
        dgUser.Enabled = True
    End If
ext:
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    cbType.Enabled = False

    cmdAdd.Enabled = True
    cmdEdit.Enabled = True
    cmdDelete.Enabled = True
    cmdSave.Caption = "Save"
    cmdCancel.Enabled = False
    cmdSave.Enabled = False
    Adodc1.Refresh