Dim Con = New MySqlConnection With {.ConnectionString = ("server=localhost;userid=root;password=;database=bmrp")}
                                                Try
                                                    Dim Cmd As MySqlCommand
                                                    Con.Open()
                                                    Cmd = New MySqlCommand("SELECT ID FROM bmrp.db_clients WHERE Card_number =@cardnumber", Con)
                                                    Cmd.Parameters.AddWithValue("@cardnumber", Txt_C_Card_number.Text)
                                                    Dim Card_Confirm As MySqlDataReader = Cmd.ExecuteReader
                                                    If (Card_Confirm.Read() = True) Then
                                                        MsgBox("O Número do cartão introduzido não está na nossa base de dados, por favor re-introduza-o!", vbCritical, "Não foi possivel concluir o regsito.")
                                                        Con.Close()
                                                        '     Exit Sub
                                                    End If
                                                    Con.Close()
                                                    Con.Open()
                                                    Cmd = New MySqlCommand("SELECT ID FROM bmrp.db_clients WHERE C_user =@username", Con)
                                                    Cmd.Parameters.AddWithValue("@username", Txt_C_User.Text)
                                                    Dim User_Confirm As MySqlDataReader = Cmd.ExecuteReader
                                                    If (User_Confirm.Read() = True) Then
                                                        MsgBox("Este nome de utlizador já existe!", vbCritical, "Não foi possivel concluir o regsito.")
                                                        Con.Close()
                                                        '      Exit Sub
                                                    End If
                                                    Con.Close()
                                                    Con.Open()
                                                    Cmd = New MySqlCommand("SELECT ID FROM bmrp.db_clients WHERE C_email =@email", Con)
                                                    Cmd.Parameters.AddWithValue("@email", Txt_C_email.Text)
                                                    Dim Email_Confirm As MySqlDataReader = Cmd.ExecuteReader
                                                    If (Email_Confirm.Read() = True) Then
                                                        MsgBox("Já existe uma conta associada a este E-mail!", vbCritical, "Não foi possivel concluir o regsito.")
                                                        Con.Close()
                                                        '    Exit Sub
                                                    End If
                                                    Con.Close()
                                                    Con.Open()
                                                    Cmd = New MySqlCommand("SELECT ID FROM bmrp.db_clients WHERE N_tel =@numtel", Con)
                                                    Cmd.Parameters.AddWithValue("@numtel", Txt_N_Tel.Text)
                                                    Dim N_Tel_Confirm As MySqlDataReader = Cmd.ExecuteReader
                                                    If (N_Tel_Confirm.Read() = True) Then
                                                        MsgBox("O número de telemovel introduzido já está associado a outra conta!", vbCritical, "Não foi possivel concluir o regsito.")
                                                        Con.Close()
                                                        '     Exit Sub
                                                    End If
                                                    Con.Close()
                                                    Con.Open()
                                                    Cmd = New MySqlCommand("SELECT ID FROM bmrp.db_clients WHERE N_cid =@numcid", Con)
                                                    Cmd.Parameters.AddWithValue("@numcid", Txt_N_cid.Text)
                                                    Dim Numcid_Confirm As MySqlDataReader = Cmd.ExecuteReader
                                                    If (Card_Confirm.Read() = True) Then
                                                        MsgBox("O Número do cartão de cidadão introduzido não é válido!", vbCritical, "Não foi possivel concluir o regsito.")
                                                        Con.Close()
                                                        '     Exit Sub
                                                    End If
                                                    Con.Close()
                                                    Con.Open()
                                                    Cmd = New MySqlCommand("SELECT ID FROM bmrp.db_clients WHERE N_Saude =@numsaude", Con)
                                                    Cmd.Parameters.AddWithValue("@cardnumber", Txt_C_Card_number.Text)
                                                    Dim saude_Confirm As MySqlDataReader = Cmd.ExecuteReader
                                                    If (saude_Confirm.Read() = True) Then
                                                        MsgBox("O Número do cartão de saude introduzido não é válido!", vbCritical, "Não foi possivel concluir o regsito.")
                                                        Con.Close()
                                                        '    Exit Sub
                                                    End If
                                                    Con.Close()
                                                    Con.Open()
                                                    Cmd = New MySqlCommand("SELECT ID FROM bmrp.db_clients WHERE N_Fiscal =@fiscalnum", Con)
                                                    Cmd.Parameters.AddWithValue("@cardnumber", Txt_C_Card_number.Text)
                                                    Dim Fiscnum_Confirm As MySqlDataReader = Cmd.ExecuteReader
                                                    If (Fiscnum_Confirm.Read() = True) Then
                                                        MsgBox("O Número de Identificação Fiscal introduzido não é válido!", vbCritical, "Não foi possivel concluir o regsito.")
                                                        Con.Close()
                                                        Exit Sub
                                                    End If
                                                    Con.Close()
                                                Catch ex As Exception
                                                    MsgBox(ex.Message & " - " & ex.Source)
                                                    MsgBox("Não foi possivel estabelecer a ligação com os servidores da Empresa InnerCore Industries.", vbCritical, "Erro de ligação")
                                                    Con.Close()
                                                End Try
                                                Try