Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient
Public Class Form4
    Dim conn As MySqlConnection
    Dim x As String
    Dim y As String
    Dim a As String
    Dim b As String
    Dim o As String
    Dim i As String
    Dim m As String
    Dim c As String
    Dim oo As String
    Dim ii As String
    Dim mm As String
    Dim xx As Integer
    Dim yy As String
    Dim zz As Double
    Dim aa As String
    Dim bb As String
    Dim cci As Double
    Dim ccii As Double
    Dim cciii As Double
    Dim cciiii As Double
    Dim cco As Double
    Dim ccoo As Double
    Dim ccooo As Double
    Dim ccoooo As Double
    Dim xpi As Double
    Dim xpii As Double
    Dim xpiii As Double
    Dim xpiiii As Double
    Dim xpo As Double
    Dim xpoo As Double
    Dim xpooo As Double
    Dim xpoooo As Double
    Dim xxx As String
    Dim yyy As String
    Dim bbb As String
    Dim aaa As Double
    Dim ccc As String
    Dim ooo As Integer
    Dim oooo As String
    Dim ooooo As String
    Dim iii As String
    Dim iiii As String
    Dim iiiii As String
    Dim mmm As Double
    Dim mmmm As String
    Dim mmmmm As String
    Dim aaaa As String
    Dim aaaaa As String
    Dim bbbb As String
    Dim bbbbb As String
    Dim cccc As String
    Dim ccccc As String
    Dim f As Double
    Dim ff As String
    Dim ee As Double
    Dim eee As Double
    Dim eeee As Double
    Dim eeeee As Double
    Dim mgold As Integer
    Dim ogold As Integer
    Dim mxp As Integer
    Dim oxp As Integer
    Dim mtxp As Integer
    Dim otxp As Integer
    Dim msr As Integer
    Dim osr As Integer
    Dim mkc As Integer
    Dim okc As Integer
    Dim item1 As String
    Dim item2 As String
    Dim item3 As String
    Dim item4 As String
    Dim oitem1 As String
    Dim oitem2 As String
    Dim oitem3 As String
    Dim oitem4 As String
    Dim frostmourneshard As Integer
    Dim fovn As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader

            conn.Close()
            conn.Open()

            Dim registerfinal As New MySqlDataAdapter

            sqlquery = "UPDATE Account SET Challengeones = '" & 3 & "' WHERE username = '" & Form1.Label7.Text & "'"
            myCommand.Connection = conn
            myCommand.CommandText = sqlquery
            registerfinal.SelectCommand = myCommand
            myData = myCommand.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter1 As New MySqlDataAdapter
            Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & textbox1.Text & "'"
            Dim myCommand1 As New MySqlCommand()
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            myAdapter1.SelectCommand = myCommand1
            Dim myData1 As MySqlDataReader
            myData1 = myCommand1.ExecuteReader
            myData1.Read()
            x = myData1.GetString("Challengeone")
            y = myData1.GetString("Challengetwo")

            conn.Close()
            conn.Open()

        If x = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengeones = '" & 3 & "' WHERE username = '" & textbox1.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
            MsgBox("Challenge Accepted")
        End If
        If y = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengetwos = '" & 3 & "' WHERE username = '" & textbox1.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
            MsgBox("Challenge Accepted")
        End If

        conn.Close()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter5 As New MySqlDataAdapter
        Dim myCommand5 As New MySqlCommand
        Dim myData5 As MySqlDataReader
        Dim registerfinal5 As New MySqlDataAdapter

        Dim sqlquery5 = "UPDATE Account SET Challengeone = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand5.Connection = conn
        myCommand5.CommandText = sqlquery5
        registerfinal5.SelectCommand = myCommand5
        myData5 = myCommand5.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter6 As New MySqlDataAdapter
        Dim myCommand6 As New MySqlCommand
        Dim myData6 As MySqlDataReader
        Dim registerfinal6 As New MySqlDataAdapter

        Dim sqlquery6 = "UPDATE Account SET Challengeoneg = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand6.Connection = conn
        myCommand6.CommandText = sqlquery6
        registerfinal6.SelectCommand = myCommand6
        myData6 = myCommand6.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter7 As New MySqlDataAdapter
        Dim myCommand7 As New MySqlCommand
        Dim myData7 As MySqlDataReader
        Dim registerfinal7 As New MySqlDataAdapter

        Dim sqlquery7 = "UPDATE Account SET Challengeoner = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand7.Connection = conn
        myCommand7.CommandText = sqlquery7
        registerfinal7.SelectCommand = myCommand7
        myData7 = myCommand7.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter8 As New MySqlDataAdapter
        Dim myCommand8 As New MySqlCommand
        Dim myData8 As MySqlDataReader
        Dim registerfinal8 As New MySqlDataAdapter

        Dim sqlquery8 = "UPDATE Account SET Challengeones = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand8.Connection = conn
        myCommand8.CommandText = sqlquery8
        registerfinal8.SelectCommand = myCommand8
        myData8 = myCommand8.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter1 As New MySqlDataAdapter
        Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & textbox1.Text & "'"
        Dim myCommand1 As New MySqlCommand()
        myCommand1.Connection = conn
        myCommand1.CommandText = sqlquery1
        myAdapter1.SelectCommand = myCommand1
        Dim myData1 As MySqlDataReader
        myData1 = myCommand1.ExecuteReader
        myData1.Read()
        x = myData1.GetString("Challengeone")
        y = myData1.GetString("Challengetwo")

        If x = Form1.Label7.Text Then
            conn.Close()
            conn.Open()

            Dim myAdapter9 As New MySqlDataAdapter
            Dim myCommand9 As New MySqlCommand
            Dim myData9 As MySqlDataReader
            Dim registerfinal9 As New MySqlDataAdapter

            Dim sqlquery9 = "UPDATE Account SET Challengeone = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand9.Connection = conn
            myCommand9.CommandText = sqlquery9
            registerfinal9.SelectCommand = myCommand9
            myData9 = myCommand9.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter10 As New MySqlDataAdapter
            Dim myCommand10 As New MySqlCommand
            Dim myData10 As MySqlDataReader
            Dim registerfinal10 As New MySqlDataAdapter

            Dim sqlquery10 = "UPDATE Account SET Challengeoneg = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand10.Connection = conn
            myCommand10.CommandText = sqlquery10
            registerfinal10.SelectCommand = myCommand10
            myData10 = myCommand10.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter11 As New MySqlDataAdapter
            Dim myCommand11 As New MySqlCommand
            Dim myData11 As MySqlDataReader
            Dim registerfinal11 As New MySqlDataAdapter

            Dim sqlquery11 = "UPDATE Account SET Challengeoner = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand11.Connection = conn
            myCommand11.CommandText = sqlquery11
            registerfinal11.SelectCommand = myCommand11
            myData11 = myCommand11.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter12 As New MySqlDataAdapter
            Dim myCommand12 As New MySqlCommand
            Dim myData12 As MySqlDataReader
            Dim registerfinal12 As New MySqlDataAdapter

            Dim sqlquery12 = "UPDATE Account SET Challengeones = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand12.Connection = conn
            myCommand12.CommandText = sqlquery12
            registerfinal12.SelectCommand = myCommand12
            myData12 = myCommand12.ExecuteReader

            conn.Close()
            conn.Open()
        End If
        If y = Form1.Label7.Text Then
            conn.Close()
            conn.Open()

            Dim myAdapter9 As New MySqlDataAdapter
            Dim myCommand9 As New MySqlCommand
            Dim myData9 As MySqlDataReader
            Dim registerfinal9 As New MySqlDataAdapter

            Dim sqlquery9 = "UPDATE Account SET Challengetwo = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand9.Connection = conn
            myCommand9.CommandText = sqlquery9
            registerfinal9.SelectCommand = myCommand9
            myData9 = myCommand9.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter10 As New MySqlDataAdapter
            Dim myCommand10 As New MySqlCommand
            Dim myData10 As MySqlDataReader
            Dim registerfinal10 As New MySqlDataAdapter

            Dim sqlquery10 = "UPDATE Account SET Challengetwog = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand10.Connection = conn
            myCommand10.CommandText = sqlquery10
            registerfinal10.SelectCommand = myCommand10
            myData10 = myCommand10.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter11 As New MySqlDataAdapter
            Dim myCommand11 As New MySqlCommand
            Dim myData11 As MySqlDataReader
            Dim registerfinal11 As New MySqlDataAdapter

            Dim sqlquery11 = "UPDATE Account SET Challengetwor = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand11.Connection = conn
            myCommand11.CommandText = sqlquery11
            registerfinal11.SelectCommand = myCommand11
            myData11 = myCommand11.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter12 As New MySqlDataAdapter
            Dim myCommand12 As New MySqlCommand
            Dim myData12 As MySqlDataReader
            Dim registerfinal12 As New MySqlDataAdapter

            Dim sqlquery12 = "UPDATE Account SET Challengetwos = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand12.Connection = conn
            myCommand12.CommandText = sqlquery12
            registerfinal12.SelectCommand = myCommand12
            myData12 = myCommand12.ExecuteReader

            conn.Close()
            conn.Open()
        End If
        conn.Close()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim registerfinal As New MySqlDataAdapter

        sqlquery = "UPDATE Account SET Challengeones = '" & 4 & "' WHERE username = '" & Form1.Label7.Text & "'"
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        registerfinal.SelectCommand = myCommand
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter1 As New MySqlDataAdapter
        Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & textbox1.Text & "'"
        Dim myCommand1 As New MySqlCommand()
        myCommand1.Connection = conn
        myCommand1.CommandText = sqlquery1
        myAdapter1.SelectCommand = myCommand1
        Dim myData1 As MySqlDataReader
        myData1 = myCommand1.ExecuteReader
        myData1.Read()
        x = myData1.GetString("Challengeone")
        y = myData1.GetString("Challengetwo")

        conn.Close()
        conn.Open()

        If x = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengeones = '" & 9 & "' WHERE username = '" & textbox1.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If
        If y = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengetwos = '" & 9 & "' WHERE username = '" & textbox1.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If

        conn.Close()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim registerfinal As New MySqlDataAdapter

        sqlquery = "UPDATE Account SET Challengeones = '" & 5 & "' WHERE username = '" & Form1.Label7.Text & "'"
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        registerfinal.SelectCommand = myCommand
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter1 As New MySqlDataAdapter
        Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & textbox1.Text & "'"
        Dim myCommand1 As New MySqlCommand()
        myCommand1.Connection = conn
        myCommand1.CommandText = sqlquery1
        myAdapter1.SelectCommand = myCommand1
        Dim myData1 As MySqlDataReader
        myData1 = myCommand1.ExecuteReader
        myData1.Read()
        x = myData1.GetString("Challengeone")
        y = myData1.GetString("Challengetwo")

        conn.Close()
        conn.Open()

        If x = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengeones = '" & 8 & "' WHERE username = '" & textbox1.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If
        If y = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengetwos = '" & 8 & "' WHERE username = '" & textbox1.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If

        conn.Close()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim registerfinal As New MySqlDataAdapter

        sqlquery = "UPDATE Account SET Challengeones = '" & 6 & "' WHERE username = '" & Form1.Label7.Text & "'"
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        registerfinal.SelectCommand = myCommand
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter1 As New MySqlDataAdapter
        Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & textbox1.Text & "'"
        Dim myCommand1 As New MySqlCommand()
        myCommand1.Connection = conn
        myCommand1.CommandText = sqlquery1
        myAdapter1.SelectCommand = myCommand1
        Dim myData1 As MySqlDataReader
        myData1 = myCommand1.ExecuteReader
        myData1.Read()
        x = myData1.GetString("Challengeone")
        y = myData1.GetString("Challengetwo")

        conn.Close()
        conn.Open()

        If x = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengeones = '" & 7 & "' WHERE username = '" & textbox1.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If
        If y = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengetwos = '" & 7 & "' WHERE username = '" & textbox1.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If

        conn.Close()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim registerfinal As New MySqlDataAdapter

        sqlquery = "UPDATE Account SET Challengeones = '" & 3 & "' WHERE username = '" & Form1.Label7.Text & "'"
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        registerfinal.SelectCommand = myCommand
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter1 As New MySqlDataAdapter
        Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & textbox1.Text & "'"
        Dim myCommand1 As New MySqlCommand()
        myCommand1.Connection = conn
        myCommand1.CommandText = sqlquery1
        myAdapter1.SelectCommand = myCommand1
        Dim myData1 As MySqlDataReader
        myData1 = myCommand1.ExecuteReader
        myData1.Read()
        x = myData1.GetString("Challengeone")
        y = myData1.GetString("Challengetwo")

        conn.Close()
        conn.Open()

        If x = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengeones = '" & 3 & "' WHERE username = '" & textbox1.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If
        If y = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengetwos = '" & 3 & "' WHERE username = '" & textbox1.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If

        conn.Close()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader
        myData.Read()
        aa = myData.GetString("Challengeones")
        conn.Close()
        conn.Open()
        If aa = "7" Then
            Dim myAdapter1 As New MySqlDataAdapter
            Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
            Dim myCommand1 As New MySqlCommand()
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            myAdapter1.SelectCommand = myCommand1
            Dim myData1 As MySqlDataReader
            myData1 = myCommand1.ExecuteReader
            myData1.Read()
            xx = myData1.GetString("SkillRating")
            yy = myData1.GetString("KCPoint")
            zz = myData1.GetString("KCGold")
            bb = myData1.GetString("XP")
            cci = myData1.GetString("itemoneg")
            ccii = myData1.GetString("itemtwog")
            cciii = myData1.GetString("itemthreeg")
            cciiii = myData1.GetString("itemfourg")
            xpi = myData1.GetString("itemonexp")
            xpii = myData1.GetString("itemtwoxp")
            xpiii = myData1.GetString("itemthreexp")
            xpiiii = myData1.GetString("itemfourxp")
            item1 = myData1.GetString("itemonen")
            item2 = myData1.GetString("itemtwon")
            item3 = myData1.GetString("itemthreen")
            item4 = myData1.GetString("itemfourn")
            frostmourneshard = myData1.GetString("fs")

            i = myData1.GetString("Win")
            m = myData1.GetString("Draw")
            c = myData1.GetString("Lost")
            conn.Close()
            conn.Open()
            mm = 0
            ii = 0
            aaa = 1
            If Form1.Label227.Text <> "" Then
                Dim myAdapter2 As New MySqlDataAdapter
                Dim sqlquery2 = "SELECT * FROM Team WHERE TeamName = '" & Form1.Label227.Text & "'"
                Dim myCommand2 As New MySqlCommand()
                myCommand2.Connection = conn
                myCommand2.CommandText = sqlquery2
                myAdapter2.SelectCommand = myCommand2
                Dim myData2 As MySqlDataReader
                myData2 = myCommand2.ExecuteReader
                myData2.Read()
                oo = myData2.GetString("XP")
                ii = myData2.GetString("ExtraXP")
                mm = myData2.GetString("ExtraGold")
                xxx = myData2.GetString("ExtraKC")
                yyy = myData2.GetString("TitanGrip")
                If yyy = "Yes" Then
                    aaa = 2
                End If
                If yyy = "No" Then
                    aaa = 1
                End If
            End If
            conn.Close()
            conn.Open()
            Dim myAdapter3 As New MySqlDataAdapter
            Dim sqlquery3 = "SELECT * FROM Account WHERE username = '" & textbox1.Text & "'"
            Dim myCommand3 As New MySqlCommand()
            myCommand3.Connection = conn
            myCommand3.CommandText = sqlquery3
            myAdapter3.SelectCommand = myCommand3
            Dim myData3 As MySqlDataReader
            myData3 = myCommand3.ExecuteReader
            myData3.Read()
            x = myData3.GetString("Challengeone")
            y = myData3.GetString("Challengetwo")
            ooo = myData3.GetString("SkillRating")
            iii = myData3.GetString("KCPoint")
            mmm = myData3.GetString("KCGold")
            oooo = myData3.GetString("XP")
            cco = myData3.GetString("itemoneg")
            ccoo = myData3.GetString("itemtwog")
            ccooo = myData3.GetString("itemthreeg")
            ccoooo = myData3.GetString("itemfourg")
            xpo = myData3.GetString("itemonexp")
            xpoo = myData3.GetString("itemtwoxp")
            xpooo = myData3.GetString("itemthreexp")
            xpoooo = myData3.GetString("itemfourxp")
            oitem1 = myData3.GetString("itemonen")
            oitem2 = myData3.GetString("itemtwon")
            oitem3 = myData3.GetString("itemthreen")
            oitem4 = myData3.GetString("itemfourn")
            ooooo = myData3.GetString("Win")
            iiiii = myData3.GetString("Draw")
            mmmmm = myData3.GetString("Lost")
            bbb = myData3.GetString("Team")
            conn.Close()
            conn.Open()
            cccc = 0
            ccccc = 1
            bbbb = 0
            If bbb <> "" Then
                Dim myAdapter40 As New MySqlDataAdapter
                Dim sqlquery40 = "SELECT * FROM Team WHERE TeamName = '" & bbb & "'"
                Dim myCommand40 As New MySqlCommand()
                myCommand40.Connection = conn
                myCommand40.CommandText = sqlquery40
                myAdapter40.SelectCommand = myCommand40
                Dim myData40 As MySqlDataReader
                myData40 = myCommand40.ExecuteReader
                myData40.Read()
                aaaa = myData40.GetString("XP")
                bbbb = myData40.GetString("ExtraXP")
                cccc = myData40.GetString("ExtraGold")
                aaaaa = myData40.GetString("ExtraKC")
                bbbbb = myData40.GetString("TitanGrip")
                If bbbbb = "Yes" Then
                    ccccc = 2
                End If
                If bbbbb = "No" Then
                    ccccc = 1
                End If
            End If
            f = 50 + ((ooo - xx) * 0.1)
            ee = f * (cci + ccii + cciii + cciiii)
            eee = f * mm
            mgold = zz + ((f + ee + eee) * aaa)
            ff = 10 + ((xx - ooo) * 0.01)
            eeee = ff * (cco + ccoo + ccooo + ccoooo)
            eeeee = ff * cccc
            ogold = mmm + ((ff + eeee + eeeee) * ccccc)

            f = 50 + ((ooo - xx) * 0.1)
            ee = f * (xpi + xpii + xpiii + xpiiii)
            eee = f * ii
            mxp = bb + ((f + ee + eee) * aaa)
            ff = 10 + ((xx - ooo) * 0.01)
            eeee = ff * (xpo + xpoo + xpooo + xpoooo)
            eeeee = ff * bbbb
            oxp = oooo + ((ff + eeee + eeeee) * ccccc)

            f = 50 + ((ooo - xx) * 0.1)
            ee = f * (xpi + xpii + xpiii + xpiiii)
            eee = f * ii
            mtxp = oo + ((f + ee + eee) * aaa)
            ff = 10 + ((xx - ooo) * 0.01)
            eeee = ff * (xpo + xpoo + xpooo + xpoooo)
            eeeee = ff * bbbb
            otxp = aaaa + ((ff + eeee + eeeee) * ccccc)

            f = 10 + ((ooo - xx) * 0.02)
            msr = xx + f
            ff = (-10) + ((xx - ooo) * 0.02)
            osr = ooo + ff

            f = 3 + ((ooo - xx) * 0.005)
            eee = f * xxx
            mkc = yy + ((f + eee) * aaa)
            ff = 1 + ((xx - ooo) * 0.001)
            eeeee = ff * aaaaa
            okc = iii + ((ff + eeeee) * ccccc)


            conn.Close()
            conn.Open()

            Dim myAdapter14 As New MySqlDataAdapter
            Dim myCommand14 As New MySqlCommand
            Dim myData14 As MySqlDataReader
            Dim registerfinal14 As New MySqlDataAdapter

            Dim sqlquery14 = "UPDATE Account SET KCGold = '" & mgold & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand14.Connection = conn
            myCommand14.CommandText = sqlquery14
            registerfinal14.SelectCommand = myCommand14
            myData14 = myCommand14.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter15 As New MySqlDataAdapter
            Dim myCommand15 As New MySqlCommand
            Dim myData15 As MySqlDataReader
            Dim registerfinal15 As New MySqlDataAdapter

            Dim sqlquery15 = "UPDATE Account SET KCGold = '" & ogold & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand15.Connection = conn
            myCommand15.CommandText = sqlquery15
            registerfinal15.SelectCommand = myCommand15
            myData15 = myCommand15.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter17 As New MySqlDataAdapter
            Dim myCommand17 As New MySqlCommand
            Dim myData17 As MySqlDataReader
            Dim registerfinal17 As New MySqlDataAdapter

            Dim sqlquery17 = "UPDATE Account SET XP = '" & mxp & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand17.Connection = conn
            myCommand17.CommandText = sqlquery17
            registerfinal17.SelectCommand = myCommand17
            myData17 = myCommand17.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter18 As New MySqlDataAdapter
            Dim myCommand18 As New MySqlCommand
            Dim myData18 As MySqlDataReader
            Dim registerfinal18 As New MySqlDataAdapter

            Dim sqlquery18 = "UPDATE Account SET XP = '" & oxp & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand18.Connection = conn
            myCommand18.CommandText = sqlquery18
            registerfinal18.SelectCommand = myCommand18
            myData18 = myCommand18.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter21 As New MySqlDataAdapter
            Dim myCommand21 As New MySqlCommand
            Dim myData21 As MySqlDataReader
            Dim registerfinal21 As New MySqlDataAdapter

            Dim sqlquery21 = "UPDATE Account SET SkillRating = '" & msr & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand21.Connection = conn
            myCommand21.CommandText = sqlquery21
            registerfinal21.SelectCommand = myCommand21
            myData21 = myCommand21.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter22 As New MySqlDataAdapter
            Dim myCommand22 As New MySqlCommand
            Dim myData22 As MySqlDataReader
            Dim registerfinal22 As New MySqlDataAdapter

            Dim sqlquery22 = "UPDATE Account SET SkillRating = '" & osr & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand22.Connection = conn
            myCommand22.CommandText = sqlquery22
            registerfinal22.SelectCommand = myCommand22
            myData22 = myCommand22.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter23 As New MySqlDataAdapter
            Dim myCommand23 As New MySqlCommand
            Dim myData23 As MySqlDataReader
            Dim registerfinal23 As New MySqlDataAdapter

            Dim sqlquery23 = "UPDATE Account SET KCPoint = '" & mkc & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand23.Connection = conn
            myCommand23.CommandText = sqlquery23
            registerfinal23.SelectCommand = myCommand23
            myData23 = myCommand23.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter24 As New MySqlDataAdapter
            Dim myCommand24 As New MySqlCommand
            Dim myData24 As MySqlDataReader
            Dim registerfinal24 As New MySqlDataAdapter

            Dim sqlquery24 = "UPDATE Account SET KCPoint = '" & okc & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand24.Connection = conn
            myCommand24.CommandText = sqlquery24
            registerfinal24.SelectCommand = myCommand24
            myData24 = myCommand24.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter25 As New MySqlDataAdapter
            Dim myCommand25 As New MySqlCommand
            Dim myData25 As MySqlDataReader
            Dim registerfinal25 As New MySqlDataAdapter

            Dim sqlquery25 = "UPDATE Account SET Win = '" & i + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand25.Connection = conn
            myCommand25.CommandText = sqlquery25
            registerfinal25.SelectCommand = myCommand25
            myData25 = myCommand25.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter26 As New MySqlDataAdapter
            Dim myCommand26 As New MySqlCommand
            Dim myData26 As MySqlDataReader
            Dim registerfinal26 As New MySqlDataAdapter

            Dim sqlquery26 = "UPDATE Account SET Lost = '" & mmmmm + 1 & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand26.Connection = conn
            myCommand26.CommandText = sqlquery26
            registerfinal26.SelectCommand = myCommand26
            myData26 = myCommand26.ExecuteReader

            conn.Close()
            conn.Open()

            If Form1.Label227.Text <> "" Then
                Dim myAdapter19 As New MySqlDataAdapter
                Dim myCommand19 As New MySqlCommand
                Dim myData19 As MySqlDataReader
                Dim registerfinal19 As New MySqlDataAdapter

                Dim sqlquery19 = "UPDATE Team SET XP = '" & mtxp & "' WHERE TeamName = '" & Form1.Label227.Text & "'"
                myCommand19.Connection = conn
                myCommand19.CommandText = sqlquery19
                registerfinal19.SelectCommand = myCommand19
                myData19 = myCommand19.ExecuteReader
            End If

            conn.Close()
            conn.Open()

            If bbb <> "" Then
                Dim myAdapter20 As New MySqlDataAdapter
                Dim myCommand20 As New MySqlCommand
                Dim myData20 As MySqlDataReader
                Dim registerfinal20 As New MySqlDataAdapter

                Dim sqlquery20 = "UPDATE Team SET XP = '" & otxp & "' WHERE TeamName = '" & bbb & "'"
                myCommand20.Connection = conn
                myCommand20.CommandText = sqlquery20
                registerfinal20.SelectCommand = myCommand20
                myData20 = myCommand20.ExecuteReader
            End If

            conn.Close()







            ''''''''''''''''''''''''''''''''''''''''''''''''''''''






            conn.Close()
            conn.Open()

            If item1 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If
            If item2 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If
            If item3 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If
            If item4 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If



        End If

        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

        If aa = "8" Then
            Dim myAdapter1 As New MySqlDataAdapter
            Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
            Dim myCommand1 As New MySqlCommand()
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            myAdapter1.SelectCommand = myCommand1
            Dim myData1 As MySqlDataReader
            myData1 = myCommand1.ExecuteReader
            myData1.Read()
            xx = myData1.GetString("SkillRating")
            yy = myData1.GetString("KCPoint")
            zz = myData1.GetString("KCGold")
            bb = myData1.GetString("XP")
            cci = myData1.GetString("itemoneg")
            ccii = myData1.GetString("itemtwog")
            cciii = myData1.GetString("itemthreeg")
            cciiii = myData1.GetString("itemfourg")
            xpi = myData1.GetString("itemonexp")
            xpii = myData1.GetString("itemtwoxp")
            xpiii = myData1.GetString("itemthreexp")
            xpiiii = myData1.GetString("itemfourxp")
            i = myData1.GetString("Win")
            m = myData1.GetString("Draw")
            c = myData1.GetString("Lost")
            conn.Close()
            conn.Open()
            mm = 0
            ii = 0
            aaa = 1
            If Form1.Label227.Text <> "" Then
                Dim myAdapter2 As New MySqlDataAdapter
                Dim sqlquery2 = "SELECT * FROM Team WHERE TeamName = '" & Form1.Label227.Text & "'"
                Dim myCommand2 As New MySqlCommand()
                myCommand2.Connection = conn
                myCommand2.CommandText = sqlquery2
                myAdapter2.SelectCommand = myCommand2
                Dim myData2 As MySqlDataReader
                myData2 = myCommand2.ExecuteReader
                myData2.Read()
                oo = myData2.GetString("XP")
                ii = myData2.GetString("ExtraXP")
                mm = myData2.GetString("ExtraGold")
                xxx = myData2.GetString("ExtraKC")
                yyy = myData2.GetString("TitanGrip")
                If yyy = "Yes" Then
                    aaa = 2
                End If
                If yyy = "No" Then
                    aaa = 1
                End If
            End If
            conn.Close()
            conn.Open()
            Dim myAdapter3 As New MySqlDataAdapter
            Dim sqlquery3 = "SELECT * FROM Account WHERE username = '" & textbox1.Text & "'"
            Dim myCommand3 As New MySqlCommand()
            myCommand3.Connection = conn
            myCommand3.CommandText = sqlquery3
            myAdapter3.SelectCommand = myCommand3
            Dim myData3 As MySqlDataReader
            myData3 = myCommand3.ExecuteReader
            myData3.Read()
            x = myData3.GetString("Challengeone")
            y = myData3.GetString("Challengetwo")
            ooo = myData3.GetString("SkillRating")
            iii = myData3.GetString("KCPoint")
            mmm = myData3.GetString("KCGold")
            oooo = myData3.GetString("XP")
            cco = myData3.GetString("itemoneg")
            ccoo = myData3.GetString("itemtwog")
            ccooo = myData3.GetString("itemthreeg")
            ccoooo = myData3.GetString("itemfourg")
            xpo = myData3.GetString("itemonexp")
            xpoo = myData3.GetString("itemtwoxp")
            xpooo = myData3.GetString("itemthreexp")
            xpoooo = myData3.GetString("itemfourxp")
            ooooo = myData3.GetString("Win")
            iiiii = myData3.GetString("Draw")
            mmmmm = myData3.GetString("Lost")
            bbb = myData3.GetString("Team")
            conn.Close()
            conn.Open()
            cccc = 0
            ccccc = 1
            bbbb = 0
            If bbb <> "" Then
                Dim myAdapter40 As New MySqlDataAdapter
                Dim sqlquery40 = "SELECT * FROM Team WHERE TeamName = '" & bbb & "'"
                Dim myCommand40 As New MySqlCommand()
                myCommand40.Connection = conn
                myCommand40.CommandText = sqlquery40
                myAdapter40.SelectCommand = myCommand40
                Dim myData40 As MySqlDataReader
                myData40 = myCommand40.ExecuteReader
                myData40.Read()
                aaaa = myData40.GetString("XP")
                bbbb = myData40.GetString("ExtraXP")
                cccc = myData40.GetString("ExtraGold")
                aaaaa = myData40.GetString("ExtraKC")
                bbbbb = myData40.GetString("TitanGrip")
                If bbbbb = "Yes" Then
                    ccccc = 2
                End If
                If bbbbb = "No" Then
                    ccccc = 1
                End If
            End If
            f = 20 + ((ooo - xx) * 0.01)
            ee = f * (cci + ccii + cciii + cciiii)
            eee = f * mm
            mgold = zz + ((f + ee + eee) * aaa)
            ff = 20 + ((xx - ooo) * 0.01)
            eeee = ff * (cco + ccoo + ccooo + ccoooo)
            eeeee = ff * cccc
            ogold = mmm + ((ff + eeee + eeeee) * ccccc)

            f = 20 + ((ooo - xx) * 0.01)
            ee = f * (xpi + xpii + xpiii + xpiiii)
            eee = f * ii
            mxp = bb + ((f + ee + eee) * aaa)
            ff = 20 + ((xx - ooo) * 0.01)
            eeee = ff * (xpo + xpoo + xpooo + xpoooo)
            eeeee = ff * bbbb
            oxp = oooo + ((ff + eeee + eeeee) * ccccc)

            f = 20 + ((ooo - xx) * 0.01)
            ee = f * (xpi + xpii + xpiii + xpiiii)
            eee = f * ii
            mtxp = oo + ((f + ee + eee) * aaa)
            ff = 20 + ((xx - ooo) * 0.01)
            eeee = ff * (xpo + xpoo + xpooo + xpoooo)
            eeeee = ff * bbbb
            otxp = aaaa + ((ff + eeee + eeeee) * ccccc)

            f = 0 + ((ooo - xx) * 0.01)
            msr = xx + f
            ff = 0 + ((xx - ooo) * 0.01)
            osr = ooo + ff

            f = 2 + ((ooo - xx) * 0.005)
            eee = f * xxx
            mkc = yy + ((f + eee) * aaa)
            ff = 2 + ((xx - ooo) * 0.001)
            eeeee = ff * aaaaa
            okc = iii + ((ff + eeeee) * ccccc)


            conn.Close()
            conn.Open()

            Dim myAdapter14 As New MySqlDataAdapter
            Dim myCommand14 As New MySqlCommand
            Dim myData14 As MySqlDataReader
            Dim registerfinal14 As New MySqlDataAdapter

            Dim sqlquery14 = "UPDATE Account SET KCGold = '" & mgold & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand14.Connection = conn
            myCommand14.CommandText = sqlquery14
            registerfinal14.SelectCommand = myCommand14
            myData14 = myCommand14.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter15 As New MySqlDataAdapter
            Dim myCommand15 As New MySqlCommand
            Dim myData15 As MySqlDataReader
            Dim registerfinal15 As New MySqlDataAdapter

            Dim sqlquery15 = "UPDATE Account SET KCGold = '" & ogold & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand15.Connection = conn
            myCommand15.CommandText = sqlquery15
            registerfinal15.SelectCommand = myCommand15
            myData15 = myCommand15.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter17 As New MySqlDataAdapter
            Dim myCommand17 As New MySqlCommand
            Dim myData17 As MySqlDataReader
            Dim registerfinal17 As New MySqlDataAdapter

            Dim sqlquery17 = "UPDATE Account SET XP = '" & mxp & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand17.Connection = conn
            myCommand17.CommandText = sqlquery17
            registerfinal17.SelectCommand = myCommand17
            myData17 = myCommand17.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter18 As New MySqlDataAdapter
            Dim myCommand18 As New MySqlCommand
            Dim myData18 As MySqlDataReader
            Dim registerfinal18 As New MySqlDataAdapter

            Dim sqlquery18 = "UPDATE Account SET XP = '" & oxp & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand18.Connection = conn
            myCommand18.CommandText = sqlquery18
            registerfinal18.SelectCommand = myCommand18
            myData18 = myCommand18.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter21 As New MySqlDataAdapter
            Dim myCommand21 As New MySqlCommand
            Dim myData21 As MySqlDataReader
            Dim registerfinal21 As New MySqlDataAdapter

            Dim sqlquery21 = "UPDATE Account SET SkillRating = '" & msr & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand21.Connection = conn
            myCommand21.CommandText = sqlquery21
            registerfinal21.SelectCommand = myCommand21
            myData21 = myCommand21.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter22 As New MySqlDataAdapter
            Dim myCommand22 As New MySqlCommand
            Dim myData22 As MySqlDataReader
            Dim registerfinal22 As New MySqlDataAdapter

            Dim sqlquery22 = "UPDATE Account SET SkillRating = '" & osr & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand22.Connection = conn
            myCommand22.CommandText = sqlquery22
            registerfinal22.SelectCommand = myCommand22
            myData22 = myCommand22.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter23 As New MySqlDataAdapter
            Dim myCommand23 As New MySqlCommand
            Dim myData23 As MySqlDataReader
            Dim registerfinal23 As New MySqlDataAdapter

            Dim sqlquery23 = "UPDATE Account SET KCPoint = '" & mkc & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand23.Connection = conn
            myCommand23.CommandText = sqlquery23
            registerfinal23.SelectCommand = myCommand23
            myData23 = myCommand23.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter24 As New MySqlDataAdapter
            Dim myCommand24 As New MySqlCommand
            Dim myData24 As MySqlDataReader
            Dim registerfinal24 As New MySqlDataAdapter

            Dim sqlquery24 = "UPDATE Account SET KCPoint = '" & okc & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand24.Connection = conn
            myCommand24.CommandText = sqlquery24
            registerfinal24.SelectCommand = myCommand24
            myData24 = myCommand24.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter25 As New MySqlDataAdapter
            Dim myCommand25 As New MySqlCommand
            Dim myData25 As MySqlDataReader
            Dim registerfinal25 As New MySqlDataAdapter

            Dim sqlquery25 = "UPDATE Account SET Draw = '" & m + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand25.Connection = conn
            myCommand25.CommandText = sqlquery25
            registerfinal25.SelectCommand = myCommand25
            myData25 = myCommand25.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter26 As New MySqlDataAdapter
            Dim myCommand26 As New MySqlCommand
            Dim myData26 As MySqlDataReader
            Dim registerfinal26 As New MySqlDataAdapter

            Dim sqlquery26 = "UPDATE Account SET Draw = '" & iiiii + 1 & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand26.Connection = conn
            myCommand26.CommandText = sqlquery26
            registerfinal26.SelectCommand = myCommand26
            myData26 = myCommand26.ExecuteReader

            conn.Close()
            conn.Open()

            If Form1.Label227.Text <> "" Then
                Dim myAdapter19 As New MySqlDataAdapter
                Dim myCommand19 As New MySqlCommand
                Dim myData19 As MySqlDataReader
                Dim registerfinal19 As New MySqlDataAdapter

                Dim sqlquery19 = "UPDATE Team SET XP = '" & mtxp & "' WHERE TeamName = '" & Form1.Label227.Text & "'"
                myCommand19.Connection = conn
                myCommand19.CommandText = sqlquery19
                registerfinal19.SelectCommand = myCommand19
                myData19 = myCommand19.ExecuteReader
            End If

            conn.Close()
            conn.Open()

            If bbb <> "" Then
                Dim myAdapter20 As New MySqlDataAdapter
                Dim myCommand20 As New MySqlCommand
                Dim myData20 As MySqlDataReader
                Dim registerfinal20 As New MySqlDataAdapter

                Dim sqlquery20 = "UPDATE Team SET XP = '" & otxp & "' WHERE TeamName = '" & bbb & "'"
                myCommand20.Connection = conn
                myCommand20.CommandText = sqlquery20
                registerfinal20.SelectCommand = myCommand20
                myData20 = myCommand20.ExecuteReader
            End If

            conn.Close()

        End If



        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''






        If aa = "9" Then
            Dim myAdapter1 As New MySqlDataAdapter
            Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
            Dim myCommand1 As New MySqlCommand()
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            myAdapter1.SelectCommand = myCommand1
            Dim myData1 As MySqlDataReader
            myData1 = myCommand1.ExecuteReader
            myData1.Read()
            xx = myData1.GetString("SkillRating")
            yy = myData1.GetString("KCPoint")
            zz = myData1.GetString("KCGold")
            bb = myData1.GetString("XP")
            cci = myData1.GetString("itemoneg")
            ccii = myData1.GetString("itemtwog")
            cciii = myData1.GetString("itemthreeg")
            cciiii = myData1.GetString("itemfourg")
            xpi = myData1.GetString("itemonexp")
            xpii = myData1.GetString("itemtwoxp")
            xpiii = myData1.GetString("itemthreexp")
            xpiiii = myData1.GetString("itemfourxp")
            i = myData1.GetString("Win")
            m = myData1.GetString("Draw")
            c = myData1.GetString("Lost")
            conn.Close()
            conn.Open()
            mm = 0
            ii = 0
            aaa = 1
            If Form1.Label227.Text <> "" Then
                Dim myAdapter2 As New MySqlDataAdapter
                Dim sqlquery2 = "SELECT * FROM Team WHERE TeamName = '" & Form1.Label227.Text & "'"
                Dim myCommand2 As New MySqlCommand()
                myCommand2.Connection = conn
                myCommand2.CommandText = sqlquery2
                myAdapter2.SelectCommand = myCommand2
                Dim myData2 As MySqlDataReader
                myData2 = myCommand2.ExecuteReader
                myData2.Read()
                oo = myData2.GetString("XP")
                ii = myData2.GetString("ExtraXP")
                mm = myData2.GetString("ExtraGold")
                xxx = myData2.GetString("ExtraKC")
                yyy = myData2.GetString("TitanGrip")
                If yyy = "Yes" Then
                    aaa = 2
                End If
                If yyy = "No" Then
                    aaa = 1
                End If
            End If
            conn.Close()
            conn.Open()
            Dim myAdapter3 As New MySqlDataAdapter
            Dim sqlquery3 = "SELECT * FROM Account WHERE username = '" & textbox1.Text & "'"
            Dim myCommand3 As New MySqlCommand()
            myCommand3.Connection = conn
            myCommand3.CommandText = sqlquery3
            myAdapter3.SelectCommand = myCommand3
            Dim myData3 As MySqlDataReader
            myData3 = myCommand3.ExecuteReader
            myData3.Read()
            x = myData3.GetString("Challengeone")
            y = myData3.GetString("Challengetwo")
            ooo = myData3.GetString("SkillRating")
            iii = myData3.GetString("KCPoint")
            mmm = myData3.GetString("KCGold")
            oooo = myData3.GetString("XP")
            cco = myData3.GetString("itemoneg")
            ccoo = myData3.GetString("itemtwog")
            ccooo = myData3.GetString("itemthreeg")
            ccoooo = myData3.GetString("itemfourg")
            xpo = myData3.GetString("itemonexp")
            xpoo = myData3.GetString("itemtwoxp")
            xpooo = myData3.GetString("itemthreexp")
            xpoooo = myData3.GetString("itemfourxp")
            oitem1 = myData3.GetString("itemonen")
            oitem2 = myData3.GetString("itemtwon")
            oitem3 = myData3.GetString("itemthreen")
            oitem4 = myData3.GetString("itemfourn")
            frostmourneshard = myData3.GetString("fs")
            ooooo = myData3.GetString("Win")
            iiiii = myData3.GetString("Draw")
            mmmmm = myData3.GetString("Lost")
            bbb = myData3.GetString("Team")
            conn.Close()
            conn.Open()
            cccc = 0
            ccccc = 1
            bbbb = 0
            If bbb <> "" Then
                Dim myAdapter40 As New MySqlDataAdapter
                Dim sqlquery40 = "SELECT * FROM Team WHERE TeamName = '" & bbb & "'"
                Dim myCommand40 As New MySqlCommand()
                myCommand40.Connection = conn
                myCommand40.CommandText = sqlquery40
                myAdapter40.SelectCommand = myCommand40
                Dim myData40 As MySqlDataReader
                myData40 = myCommand40.ExecuteReader
                myData40.Read()
                aaaa = myData40.GetString("XP")
                bbbb = myData40.GetString("ExtraXP")
                cccc = myData40.GetString("ExtraGold")
                aaaaa = myData40.GetString("ExtraKC")
                bbbbb = myData40.GetString("TitanGrip")
                If bbbbb = "Yes" Then
                    ccccc = 2
                End If
                If bbbbb = "No" Then
                    ccccc = 1
                End If
            End If
            f = 10 + ((ooo - xx) * 0.01)
            ee = f * (cci + ccii + cciii + cciiii)
            eee = f * mm
            mgold = zz + ((f + ee + eee) * aaa)
            ff = 50 + ((xx - ooo) * 0.1)
            eeee = ff * (cco + ccoo + ccooo + ccoooo)
            eeeee = ff * cccc
            ogold = mmm + ((ff + eeee + eeeee) * ccccc)

            f = 10 + ((ooo - xx) * 0.01)
            ee = f * (xpi + xpii + xpiii + xpiiii)
            eee = f * ii
            mxp = bb + ((f + ee + eee) * aaa)
            ff = 50 + ((xx - ooo) * 0.1)
            eeee = ff * (xpo + xpoo + xpooo + xpoooo)
            eeeee = ff * bbbb
            oxp = oooo + ((ff + eeee + eeeee) * ccccc)

            f = 10 + ((ooo - xx) * 0.01)
            ee = f * (xpi + xpii + xpiii + xpiiii)
            eee = f * ii
            mtxp = oo + ((f + ee + eee) * aaa)
            ff = 50 + ((xx - ooo) * 0.1)
            eeee = ff * (xpo + xpoo + xpooo + xpoooo)
            eeeee = ff * bbbb
            otxp = aaaa + ((ff + eeee + eeeee) * ccccc)

            f = (-10) + ((ooo - xx) * 0.02)
            msr = xx + f
            ff = 10 + ((xx - ooo) * 0.02)
            osr = ooo + ff

            f = 1 + ((ooo - xx) * 0.001)
            eee = f * xxx
            mkc = yy + ((f + eee) * aaa)
            ff = 3 + ((xx - ooo) * 0.005)
            eeeee = ff * aaaaa
            okc = iii + ((ff + eeeee) * ccccc)


            conn.Close()
            conn.Open()

            Dim myAdapter14 As New MySqlDataAdapter
            Dim myCommand14 As New MySqlCommand
            Dim myData14 As MySqlDataReader
            Dim registerfinal14 As New MySqlDataAdapter

            Dim sqlquery14 = "UPDATE Account SET KCGold = '" & mgold & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand14.Connection = conn
            myCommand14.CommandText = sqlquery14
            registerfinal14.SelectCommand = myCommand14
            myData14 = myCommand14.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter15 As New MySqlDataAdapter
            Dim myCommand15 As New MySqlCommand
            Dim myData15 As MySqlDataReader
            Dim registerfinal15 As New MySqlDataAdapter

            Dim sqlquery15 = "UPDATE Account SET KCGold = '" & ogold & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand15.Connection = conn
            myCommand15.CommandText = sqlquery15
            registerfinal15.SelectCommand = myCommand15
            myData15 = myCommand15.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter17 As New MySqlDataAdapter
            Dim myCommand17 As New MySqlCommand
            Dim myData17 As MySqlDataReader
            Dim registerfinal17 As New MySqlDataAdapter

            Dim sqlquery17 = "UPDATE Account SET XP = '" & mxp & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand17.Connection = conn
            myCommand17.CommandText = sqlquery17
            registerfinal17.SelectCommand = myCommand17
            myData17 = myCommand17.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter18 As New MySqlDataAdapter
            Dim myCommand18 As New MySqlCommand
            Dim myData18 As MySqlDataReader
            Dim registerfinal18 As New MySqlDataAdapter

            Dim sqlquery18 = "UPDATE Account SET XP = '" & oxp & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand18.Connection = conn
            myCommand18.CommandText = sqlquery18
            registerfinal18.SelectCommand = myCommand18
            myData18 = myCommand18.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter21 As New MySqlDataAdapter
            Dim myCommand21 As New MySqlCommand
            Dim myData21 As MySqlDataReader
            Dim registerfinal21 As New MySqlDataAdapter

            Dim sqlquery21 = "UPDATE Account SET SkillRating = '" & msr & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand21.Connection = conn
            myCommand21.CommandText = sqlquery21
            registerfinal21.SelectCommand = myCommand21
            myData21 = myCommand21.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter22 As New MySqlDataAdapter
            Dim myCommand22 As New MySqlCommand
            Dim myData22 As MySqlDataReader
            Dim registerfinal22 As New MySqlDataAdapter

            Dim sqlquery22 = "UPDATE Account SET SkillRating = '" & osr & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand22.Connection = conn
            myCommand22.CommandText = sqlquery22
            registerfinal22.SelectCommand = myCommand22
            myData22 = myCommand22.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter23 As New MySqlDataAdapter
            Dim myCommand23 As New MySqlCommand
            Dim myData23 As MySqlDataReader
            Dim registerfinal23 As New MySqlDataAdapter

            Dim sqlquery23 = "UPDATE Account SET KCPoint = '" & mkc & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand23.Connection = conn
            myCommand23.CommandText = sqlquery23
            registerfinal23.SelectCommand = myCommand23
            myData23 = myCommand23.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter24 As New MySqlDataAdapter
            Dim myCommand24 As New MySqlCommand
            Dim myData24 As MySqlDataReader
            Dim registerfinal24 As New MySqlDataAdapter

            Dim sqlquery24 = "UPDATE Account SET KCPoint = '" & okc & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand24.Connection = conn
            myCommand24.CommandText = sqlquery24
            registerfinal24.SelectCommand = myCommand24
            myData24 = myCommand24.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter25 As New MySqlDataAdapter
            Dim myCommand25 As New MySqlCommand
            Dim myData25 As MySqlDataReader
            Dim registerfinal25 As New MySqlDataAdapter

            Dim sqlquery25 = "UPDATE Account SET Lost = '" & c + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand25.Connection = conn
            myCommand25.CommandText = sqlquery25
            registerfinal25.SelectCommand = myCommand25
            myData25 = myCommand25.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter26 As New MySqlDataAdapter
            Dim myCommand26 As New MySqlCommand
            Dim myData26 As MySqlDataReader
            Dim registerfinal26 As New MySqlDataAdapter

            Dim sqlquery26 = "UPDATE Account SET Win = '" & ooooo + 1 & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand26.Connection = conn
            myCommand26.CommandText = sqlquery26
            registerfinal26.SelectCommand = myCommand26
            myData26 = myCommand26.ExecuteReader

            conn.Close()
            conn.Open()

            If Form1.Label227.Text <> "" Then
                Dim myAdapter19 As New MySqlDataAdapter
                Dim myCommand19 As New MySqlCommand
                Dim myData19 As MySqlDataReader
                Dim registerfinal19 As New MySqlDataAdapter

                Dim sqlquery19 = "UPDATE Team SET XP = '" & mtxp & "' WHERE TeamName = '" & Form1.Label227.Text & "'"
                myCommand19.Connection = conn
                myCommand19.CommandText = sqlquery19
                registerfinal19.SelectCommand = myCommand19
                myData19 = myCommand19.ExecuteReader
            End If

            conn.Close()
            conn.Open()

            If bbb <> "" Then
                Dim myAdapter20 As New MySqlDataAdapter
                Dim myCommand20 As New MySqlCommand
                Dim myData20 As MySqlDataReader
                Dim registerfinal20 As New MySqlDataAdapter

                Dim sqlquery20 = "UPDATE Team SET XP = '" & otxp & "' WHERE TeamName = '" & bbb & "'"
                myCommand20.Connection = conn
                myCommand20.CommandText = sqlquery20
                registerfinal20.SelectCommand = myCommand20
                myData20 = myCommand20.ExecuteReader
            End If





        '''''''''''''''''''''''''''''''''''''''''''''''''''''''


        conn.Close()
        conn.Open()

            If oitem1 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & textbox1.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If

            If oitem2 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & textbox1.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If

            If oitem3 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & textbox1.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If

            If oitem4 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & textbox1.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If
        End If


        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


        conn.Close()
        conn.Open()

        Dim myAdapter13 As New MySqlDataAdapter
        Dim sqlquery13 = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand13 As New MySqlCommand()
        myCommand13.Connection = conn
        myCommand13.CommandText = sqlquery
        myAdapter13.SelectCommand = myCommand13
        Dim myData13 As MySqlDataReader
        myData13 = myCommand13.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter5 As New MySqlDataAdapter
        Dim myCommand5 As New MySqlCommand
        Dim myData5 As MySqlDataReader
        Dim registerfinal5 As New MySqlDataAdapter

        Dim sqlquery5 = "UPDATE Account SET Challengeone = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand5.Connection = conn
        myCommand5.CommandText = sqlquery5
        registerfinal5.SelectCommand = myCommand5
        myData5 = myCommand5.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter6 As New MySqlDataAdapter
        Dim myCommand6 As New MySqlCommand
        Dim myData6 As MySqlDataReader
        Dim registerfinal6 As New MySqlDataAdapter

        Dim sqlquery6 = "UPDATE Account SET Challengeoneg = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand6.Connection = conn
        myCommand6.CommandText = sqlquery6
        registerfinal6.SelectCommand = myCommand6
        myData6 = myCommand6.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter7 As New MySqlDataAdapter
        Dim myCommand7 As New MySqlCommand
        Dim myData7 As MySqlDataReader
        Dim registerfinal7 As New MySqlDataAdapter

        Dim sqlquery7 = "UPDATE Account SET Challengeoner = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand7.Connection = conn
        myCommand7.CommandText = sqlquery7
        registerfinal7.SelectCommand = myCommand7
        myData7 = myCommand7.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter8 As New MySqlDataAdapter
        Dim myCommand8 As New MySqlCommand
        Dim myData8 As MySqlDataReader
        Dim registerfinal8 As New MySqlDataAdapter

        Dim sqlquery8 = "UPDATE Account SET Challengeones = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand8.Connection = conn
        myCommand8.CommandText = sqlquery8
        registerfinal8.SelectCommand = myCommand8
        myData8 = myCommand8.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter16 As New MySqlDataAdapter
        Dim sqlquery16 = "SELECT * FROM Account WHERE username = '" & textbox1.Text & "'"
        Dim myCommand16 As New MySqlCommand()
        myCommand16.Connection = conn
        myCommand16.CommandText = sqlquery16
        myAdapter16.SelectCommand = myCommand16
        Dim myData16 As MySqlDataReader
        myData16 = myCommand16.ExecuteReader
        myData16.Read()
        x = myData16.GetString("Challengeone")
        y = myData16.GetString("Challengetwo")

        If x = Form1.Label7.Text Then
            conn.Close()
            conn.Open()

            Dim myAdapter9 As New MySqlDataAdapter
            Dim myCommand9 As New MySqlCommand
            Dim myData9 As MySqlDataReader
            Dim registerfinal9 As New MySqlDataAdapter

            Dim sqlquery9 = "UPDATE Account SET Challengeone = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand9.Connection = conn
            myCommand9.CommandText = sqlquery9
            registerfinal9.SelectCommand = myCommand9
            myData9 = myCommand9.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter10 As New MySqlDataAdapter
            Dim myCommand10 As New MySqlCommand
            Dim myData10 As MySqlDataReader
            Dim registerfinal10 As New MySqlDataAdapter

            Dim sqlquery10 = "UPDATE Account SET Challengeoneg = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand10.Connection = conn
            myCommand10.CommandText = sqlquery10
            registerfinal10.SelectCommand = myCommand10
            myData10 = myCommand10.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter11 As New MySqlDataAdapter
            Dim myCommand11 As New MySqlCommand
            Dim myData11 As MySqlDataReader
            Dim registerfinal11 As New MySqlDataAdapter

            Dim sqlquery11 = "UPDATE Account SET Challengeoner = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand11.Connection = conn
            myCommand11.CommandText = sqlquery11
            registerfinal11.SelectCommand = myCommand11
            myData11 = myCommand11.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter12 As New MySqlDataAdapter
            Dim myCommand12 As New MySqlCommand
            Dim myData12 As MySqlDataReader
            Dim registerfinal12 As New MySqlDataAdapter

            Dim sqlquery12 = "UPDATE Account SET Challengeones = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand12.Connection = conn
            myCommand12.CommandText = sqlquery12
            registerfinal12.SelectCommand = myCommand12
            myData12 = myCommand12.ExecuteReader

            conn.Close()
            conn.Open()
        End If
        If y = Form1.Label7.Text Then
            conn.Close()
            conn.Open()

            Dim myAdapter9 As New MySqlDataAdapter
            Dim myCommand9 As New MySqlCommand
            Dim myData9 As MySqlDataReader
            Dim registerfinal9 As New MySqlDataAdapter

            Dim sqlquery9 = "UPDATE Account SET Challengetwo = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand9.Connection = conn
            myCommand9.CommandText = sqlquery9
            registerfinal9.SelectCommand = myCommand9
            myData9 = myCommand9.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter10 As New MySqlDataAdapter
            Dim myCommand10 As New MySqlCommand
            Dim myData10 As MySqlDataReader
            Dim registerfinal10 As New MySqlDataAdapter

            Dim sqlquery10 = "UPDATE Account SET Challengetwog = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand10.Connection = conn
            myCommand10.CommandText = sqlquery10
            registerfinal10.SelectCommand = myCommand10
            myData10 = myCommand10.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter11 As New MySqlDataAdapter
            Dim myCommand11 As New MySqlCommand
            Dim myData11 As MySqlDataReader
            Dim registerfinal11 As New MySqlDataAdapter

            Dim sqlquery11 = "UPDATE Account SET Challengetwor = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand11.Connection = conn
            myCommand11.CommandText = sqlquery11
            registerfinal11.SelectCommand = myCommand11
            myData11 = myCommand11.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter12 As New MySqlDataAdapter
            Dim myCommand12 As New MySqlCommand
            Dim myData12 As MySqlDataReader
            Dim registerfinal12 As New MySqlDataAdapter

            Dim sqlquery12 = "UPDATE Account SET Challengetwos = '" & "" & "' WHERE Username = '" & textbox1.Text & "'"
            myCommand12.Connection = conn
            myCommand12.CommandText = sqlquery12
            registerfinal12.SelectCommand = myCommand12
            myData12 = myCommand12.ExecuteReader

            conn.Close()
            conn.Open()
        End If
        conn.Close()
        Me.Hide()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim registerfinal As New MySqlDataAdapter

        sqlquery = "UPDATE Account SET Challengetwos = '" & 3 & "' WHERE username = '" & Form1.Label7.Text & "'"
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        registerfinal.SelectCommand = myCommand
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter1 As New MySqlDataAdapter
        Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & r2.Text & "'"
        Dim myCommand1 As New MySqlCommand()
        myCommand1.Connection = conn
        myCommand1.CommandText = sqlquery1
        myAdapter1.SelectCommand = myCommand1
        Dim myData1 As MySqlDataReader
        myData1 = myCommand1.ExecuteReader
        myData1.Read()
        x = myData1.GetString("Challengeone")
        y = myData1.GetString("Challengetwo")

        conn.Close()
        conn.Open()

        If x = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengeones = '" & 3 & "' WHERE username = '" & r2.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
            MsgBox("Challenge Accepted")
        End If
        If y = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengetwos = '" & 3 & "' WHERE username = '" & r2.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
            MsgBox("Challenge Accepted")
        End If

        conn.Close()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter5 As New MySqlDataAdapter
        Dim myCommand5 As New MySqlCommand
        Dim myData5 As MySqlDataReader
        Dim registerfinal5 As New MySqlDataAdapter

        Dim sqlquery5 = "UPDATE Account SET Challengetwo = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand5.Connection = conn
        myCommand5.CommandText = sqlquery5
        registerfinal5.SelectCommand = myCommand5
        myData5 = myCommand5.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter6 As New MySqlDataAdapter
        Dim myCommand6 As New MySqlCommand
        Dim myData6 As MySqlDataReader
        Dim registerfinal6 As New MySqlDataAdapter

        Dim sqlquery6 = "UPDATE Account SET Challengetwog = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand6.Connection = conn
        myCommand6.CommandText = sqlquery6
        registerfinal6.SelectCommand = myCommand6
        myData6 = myCommand6.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter7 As New MySqlDataAdapter
        Dim myCommand7 As New MySqlCommand
        Dim myData7 As MySqlDataReader
        Dim registerfinal7 As New MySqlDataAdapter

        Dim sqlquery7 = "UPDATE Account SET Challengetwor = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand7.Connection = conn
        myCommand7.CommandText = sqlquery7
        registerfinal7.SelectCommand = myCommand7
        myData7 = myCommand7.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter8 As New MySqlDataAdapter
        Dim myCommand8 As New MySqlCommand
        Dim myData8 As MySqlDataReader
        Dim registerfinal8 As New MySqlDataAdapter

        Dim sqlquery8 = "UPDATE Account SET Challengetwos = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand8.Connection = conn
        myCommand8.CommandText = sqlquery8
        registerfinal8.SelectCommand = myCommand8
        myData8 = myCommand8.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter1 As New MySqlDataAdapter
        Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & textbox1.Text & "'"
        Dim myCommand1 As New MySqlCommand()
        myCommand1.Connection = conn
        myCommand1.CommandText = sqlquery1
        myAdapter1.SelectCommand = myCommand1
        Dim myData1 As MySqlDataReader
        myData1 = myCommand1.ExecuteReader
        myData1.Read()
        x = myData1.GetString("Challengeone")
        y = myData1.GetString("Challengetwo")

        If x = Form1.Label7.Text Then
            conn.Close()
            conn.Open()

            Dim myAdapter9 As New MySqlDataAdapter
            Dim myCommand9 As New MySqlCommand
            Dim myData9 As MySqlDataReader
            Dim registerfinal9 As New MySqlDataAdapter

            Dim sqlquery9 = "UPDATE Account SET Challengeone = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand9.Connection = conn
            myCommand9.CommandText = sqlquery9
            registerfinal9.SelectCommand = myCommand9
            myData9 = myCommand9.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter10 As New MySqlDataAdapter
            Dim myCommand10 As New MySqlCommand
            Dim myData10 As MySqlDataReader
            Dim registerfinal10 As New MySqlDataAdapter

            Dim sqlquery10 = "UPDATE Account SET Challengeoneg = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand10.Connection = conn
            myCommand10.CommandText = sqlquery10
            registerfinal10.SelectCommand = myCommand10
            myData10 = myCommand10.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter11 As New MySqlDataAdapter
            Dim myCommand11 As New MySqlCommand
            Dim myData11 As MySqlDataReader
            Dim registerfinal11 As New MySqlDataAdapter

            Dim sqlquery11 = "UPDATE Account SET Challengeoner = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand11.Connection = conn
            myCommand11.CommandText = sqlquery11
            registerfinal11.SelectCommand = myCommand11
            myData11 = myCommand11.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter12 As New MySqlDataAdapter
            Dim myCommand12 As New MySqlCommand
            Dim myData12 As MySqlDataReader
            Dim registerfinal12 As New MySqlDataAdapter

            Dim sqlquery12 = "UPDATE Account SET Challengeones = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand12.Connection = conn
            myCommand12.CommandText = sqlquery12
            registerfinal12.SelectCommand = myCommand12
            myData12 = myCommand12.ExecuteReader

            conn.Close()
            conn.Open()
        End If
        If y = Form1.Label7.Text Then
            conn.Close()
            conn.Open()

            Dim myAdapter9 As New MySqlDataAdapter
            Dim myCommand9 As New MySqlCommand
            Dim myData9 As MySqlDataReader
            Dim registerfinal9 As New MySqlDataAdapter

            Dim sqlquery9 = "UPDATE Account SET Challengetwo = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand9.Connection = conn
            myCommand9.CommandText = sqlquery9
            registerfinal9.SelectCommand = myCommand9
            myData9 = myCommand9.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter10 As New MySqlDataAdapter
            Dim myCommand10 As New MySqlCommand
            Dim myData10 As MySqlDataReader
            Dim registerfinal10 As New MySqlDataAdapter

            Dim sqlquery10 = "UPDATE Account SET Challengetwog = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand10.Connection = conn
            myCommand10.CommandText = sqlquery10
            registerfinal10.SelectCommand = myCommand10
            myData10 = myCommand10.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter11 As New MySqlDataAdapter
            Dim myCommand11 As New MySqlCommand
            Dim myData11 As MySqlDataReader
            Dim registerfinal11 As New MySqlDataAdapter

            Dim sqlquery11 = "UPDATE Account SET Challengetwor = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand11.Connection = conn
            myCommand11.CommandText = sqlquery11
            registerfinal11.SelectCommand = myCommand11
            myData11 = myCommand11.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter12 As New MySqlDataAdapter
            Dim myCommand12 As New MySqlCommand
            Dim myData12 As MySqlDataReader
            Dim registerfinal12 As New MySqlDataAdapter

            Dim sqlquery12 = "UPDATE Account SET Challengetwos = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand12.Connection = conn
            myCommand12.CommandText = sqlquery12
            registerfinal12.SelectCommand = myCommand12
            myData12 = myCommand12.ExecuteReader

            conn.Close()
            conn.Open()
        End If
        conn.Close()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim registerfinal As New MySqlDataAdapter

        sqlquery = "UPDATE Account SET Challengetwos = '" & 4 & "' WHERE username = '" & Form1.Label7.Text & "'"
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        registerfinal.SelectCommand = myCommand
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter1 As New MySqlDataAdapter
        Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & r2.Text & "'"
        Dim myCommand1 As New MySqlCommand()
        myCommand1.Connection = conn
        myCommand1.CommandText = sqlquery1
        myAdapter1.SelectCommand = myCommand1
        Dim myData1 As MySqlDataReader
        myData1 = myCommand1.ExecuteReader
        myData1.Read()
        x = myData1.GetString("Challengeone")
        y = myData1.GetString("Challengetwo")

        conn.Close()
        conn.Open()

        If x = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengeones = '" & 9 & "' WHERE username = '" & r2.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If
        If y = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengetwos = '" & 9 & "' WHERE username = '" & r2.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If

        conn.Close()
        Form5.Hide()
        Login.Login()
    End Sub


    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim registerfinal As New MySqlDataAdapter

        sqlquery = "UPDATE Account SET Challengetwos = '" & 5 & "' WHERE username = '" & Form1.Label7.Text & "'"
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        registerfinal.SelectCommand = myCommand
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter1 As New MySqlDataAdapter
        Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & r2.Text & "'"
        Dim myCommand1 As New MySqlCommand()
        myCommand1.Connection = conn
        myCommand1.CommandText = sqlquery1
        myAdapter1.SelectCommand = myCommand1
        Dim myData1 As MySqlDataReader
        myData1 = myCommand1.ExecuteReader
        myData1.Read()
        x = myData1.GetString("Challengeone")
        y = myData1.GetString("Challengetwo")

        conn.Close()
        conn.Open()

        If x = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengeones = '" & 8 & "' WHERE username = '" & r2.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If
        If y = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengetwos = '" & 8 & "' WHERE username = '" & r2.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If

        conn.Close()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim registerfinal As New MySqlDataAdapter

        sqlquery = "UPDATE Account SET Challengetwos = '" & 6 & "' WHERE username = '" & Form1.Label7.Text & "'"
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        registerfinal.SelectCommand = myCommand
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter1 As New MySqlDataAdapter
        Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & r2.Text & "'"
        Dim myCommand1 As New MySqlCommand()
        myCommand1.Connection = conn
        myCommand1.CommandText = sqlquery1
        myAdapter1.SelectCommand = myCommand1
        Dim myData1 As MySqlDataReader
        myData1 = myCommand1.ExecuteReader
        myData1.Read()
        x = myData1.GetString("Challengeone")
        y = myData1.GetString("Challengetwo")

        conn.Close()
        conn.Open()

        If x = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengeones = '" & 7 & "' WHERE username = '" & r2.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If
        If y = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengetwos = '" & 7 & "' WHERE username = '" & r2.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If

        conn.Close()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim registerfinal As New MySqlDataAdapter

        sqlquery = "UPDATE Account SET Challengetwos = '" & 3 & "' WHERE username = '" & Form1.Label7.Text & "'"
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        registerfinal.SelectCommand = myCommand
        myData = myCommand.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter1 As New MySqlDataAdapter
        Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & r2.Text & "'"
        Dim myCommand1 As New MySqlCommand()
        myCommand1.Connection = conn
        myCommand1.CommandText = sqlquery1
        myAdapter1.SelectCommand = myCommand1
        Dim myData1 As MySqlDataReader
        myData1 = myCommand1.ExecuteReader
        myData1.Read()
        x = myData1.GetString("Challengeone")
        y = myData1.GetString("Challengetwo")

        conn.Close()
        conn.Open()

        If x = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengeones = '" & 3 & "' WHERE username = '" & r2.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If
        If y = Form1.Label7.Text Then
            Dim registerfinal1 As New MySqlDataAdapter
            sqlquery1 = "UPDATE Account SET Challengetwos = '" & 3 & "' WHERE username = '" & r2.Text & "'"
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            registerfinal1.SelectCommand = myCommand1
            myData1 = myCommand1.ExecuteReader
        End If

        conn.Close()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        Form5.Show()
        conn = New MySqlConnection()
        conn.ConnectionString = "server=www.db4free.net;Port=3306; user id=mikop; password= bor416mikop; database=kcladder"
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Error connecting to the Kaiba Corporation Database")
        End Try

        conn.Close()
        conn.Open()

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader
        myData.Read()
        aa = myData.GetString("Challengetwos")
        conn.Close()
        conn.Open()
        If aa = "7" Then
            Dim myAdapter1 As New MySqlDataAdapter
            Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
            Dim myCommand1 As New MySqlCommand()
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            myAdapter1.SelectCommand = myCommand1
            Dim myData1 As MySqlDataReader
            myData1 = myCommand1.ExecuteReader
            myData1.Read()
            xx = myData1.GetString("SkillRating")
            yy = myData1.GetString("KCPoint")
            zz = myData1.GetString("KCGold")
            bb = myData1.GetString("XP")
            cci = myData1.GetString("itemoneg")
            ccii = myData1.GetString("itemtwog")
            cciii = myData1.GetString("itemthreeg")
            cciiii = myData1.GetString("itemfourg")
            xpi = myData1.GetString("itemonexp")
            xpii = myData1.GetString("itemtwoxp")
            xpiii = myData1.GetString("itemthreexp")
            xpiiii = myData1.GetString("itemfourxp")
            item1 = myData1.GetString("itemonen")
            item2 = myData1.GetString("itemtwon")
            item3 = myData1.GetString("itemthreen")
            item4 = myData1.GetString("itemfourn")
            frostmourneshard = myData1.GetString("fs")
            i = myData1.GetString("Win")
            m = myData1.GetString("Draw")
            c = myData1.GetString("Lost")
            conn.Close()
            conn.Open()
            mm = 0
            ii = 0
            aaa = 1
            If Form1.Label227.Text <> "" Then
                Dim myAdapter2 As New MySqlDataAdapter
                Dim sqlquery2 = "SELECT * FROM Team WHERE TeamName = '" & Form1.Label227.Text & "'"
                Dim myCommand2 As New MySqlCommand()
                myCommand2.Connection = conn
                myCommand2.CommandText = sqlquery2
                myAdapter2.SelectCommand = myCommand2
                Dim myData2 As MySqlDataReader
                myData2 = myCommand2.ExecuteReader
                myData2.Read()
                oo = myData2.GetString("XP")
                ii = myData2.GetString("ExtraXP")
                mm = myData2.GetString("ExtraGold")
                xxx = myData2.GetString("ExtraKC")
                yyy = myData2.GetString("TitanGrip")
                If yyy = "Yes" Then
                    aaa = 2
                End If
                If yyy = "No" Then
                    aaa = 1
                End If
            End If
            conn.Close()
            conn.Open()
            Dim myAdapter3 As New MySqlDataAdapter
            Dim sqlquery3 = "SELECT * FROM Account WHERE username = '" & r2.Text & "'"
            Dim myCommand3 As New MySqlCommand()
            myCommand3.Connection = conn
            myCommand3.CommandText = sqlquery3
            myAdapter3.SelectCommand = myCommand3
            Dim myData3 As MySqlDataReader
            myData3 = myCommand3.ExecuteReader
            myData3.Read()
            x = myData3.GetString("Challengeone")
            y = myData3.GetString("Challengetwo")
            ooo = myData3.GetString("SkillRating")
            iii = myData3.GetString("KCPoint")
            mmm = myData3.GetString("KCGold")
            oooo = myData3.GetString("XP")
            cco = myData3.GetString("itemoneg")
            ccoo = myData3.GetString("itemtwog")
            ccooo = myData3.GetString("itemthreeg")
            ccoooo = myData3.GetString("itemfourg")
            xpo = myData3.GetString("itemonexp")
            xpoo = myData3.GetString("itemtwoxp")
            xpooo = myData3.GetString("itemthreexp")
            xpoooo = myData3.GetString("itemfourxp")
            ooooo = myData3.GetString("Win")
            iiiii = myData3.GetString("Draw")
            mmmmm = myData3.GetString("Lost")
            bbb = myData3.GetString("Team")
            conn.Close()
            conn.Open()
            cccc = 0
            ccccc = 1
            bbbb = 0
            If bbb <> "" Then
                Dim myAdapter40 As New MySqlDataAdapter
                Dim sqlquery40 = "SELECT * FROM Team WHERE TeamName = '" & bbb & "'"
                Dim myCommand40 As New MySqlCommand()
                myCommand40.Connection = conn
                myCommand40.CommandText = sqlquery40
                myAdapter40.SelectCommand = myCommand40
                Dim myData40 As MySqlDataReader
                myData40 = myCommand40.ExecuteReader
                myData40.Read()
                aaaa = myData40.GetString("XP")
                bbbb = myData40.GetString("ExtraXP")
                cccc = myData40.GetString("ExtraGold")
                aaaaa = myData40.GetString("ExtraKC")
                bbbbb = myData40.GetString("TitanGrip")
                If bbbbb = "Yes" Then
                    ccccc = 2
                End If
                If bbbbb = "No" Then
                    ccccc = 1
                End If
            End If
            f = 50 + ((ooo - xx) * 0.1)
            ee = f * (cci + ccii + cciii + cciiii)
            eee = f * mm
            mgold = zz + ((f + ee + eee) * aaa)
            ff = 10 + ((xx - ooo) * 0.01)
            eeee = ff * (cco + ccoo + ccooo + ccoooo)
            eeeee = ff * cccc
            ogold = mmm + ((ff + eeee + eeeee) * ccccc)

            f = 50 + ((ooo - xx) * 0.1)
            ee = f * (xpi + xpii + xpiii + xpiiii)
            eee = f * ii
            mxp = bb + ((f + ee + eee) * aaa)
            ff = 10 + ((xx - ooo) * 0.01)
            eeee = ff * (xpo + xpoo + xpooo + xpoooo)
            eeeee = ff * bbbb
            oxp = oooo + ((ff + eeee + eeeee) * ccccc)

            f = 50 + ((ooo - xx) * 0.1)
            ee = f * (xpi + xpii + xpiii + xpiiii)
            eee = f * ii
            mtxp = oo + ((f + ee + eee) * aaa)
            ff = 10 + ((xx - ooo) * 0.01)
            eeee = ff * (xpo + xpoo + xpooo + xpoooo)
            eeeee = ff * bbbb
            otxp = aaaa + ((ff + eeee + eeeee) * ccccc)

            f = 10 + ((ooo - xx) * 0.02)
            msr = xx + f
            ff = (-10) + ((xx - ooo) * 0.02)
            osr = ooo + ff

            f = 3 + ((ooo - xx) * 0.005)
            eee = f * xxx
            mkc = yy + ((f + eee) * aaa)
            ff = 1 + ((xx - ooo) * 0.001)
            eeeee = ff * aaaaa
            okc = iii + ((ff + eeeee) * ccccc)


            conn.Close()
            conn.Open()

            Dim myAdapter14 As New MySqlDataAdapter
            Dim myCommand14 As New MySqlCommand
            Dim myData14 As MySqlDataReader
            Dim registerfinal14 As New MySqlDataAdapter

            Dim sqlquery14 = "UPDATE Account SET KCGold = '" & mgold & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand14.Connection = conn
            myCommand14.CommandText = sqlquery14
            registerfinal14.SelectCommand = myCommand14
            myData14 = myCommand14.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter15 As New MySqlDataAdapter
            Dim myCommand15 As New MySqlCommand
            Dim myData15 As MySqlDataReader
            Dim registerfinal15 As New MySqlDataAdapter

            Dim sqlquery15 = "UPDATE Account SET KCGold = '" & ogold & "' WHERE Username = '" & r2.Text & "'"
            myCommand15.Connection = conn
            myCommand15.CommandText = sqlquery15
            registerfinal15.SelectCommand = myCommand15
            myData15 = myCommand15.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter17 As New MySqlDataAdapter
            Dim myCommand17 As New MySqlCommand
            Dim myData17 As MySqlDataReader
            Dim registerfinal17 As New MySqlDataAdapter

            Dim sqlquery17 = "UPDATE Account SET XP = '" & mxp & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand17.Connection = conn
            myCommand17.CommandText = sqlquery17
            registerfinal17.SelectCommand = myCommand17
            myData17 = myCommand17.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter18 As New MySqlDataAdapter
            Dim myCommand18 As New MySqlCommand
            Dim myData18 As MySqlDataReader
            Dim registerfinal18 As New MySqlDataAdapter

            Dim sqlquery18 = "UPDATE Account SET XP = '" & oxp & "' WHERE Username = '" & r2.Text & "'"
            myCommand18.Connection = conn
            myCommand18.CommandText = sqlquery18
            registerfinal18.SelectCommand = myCommand18
            myData18 = myCommand18.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter21 As New MySqlDataAdapter
            Dim myCommand21 As New MySqlCommand
            Dim myData21 As MySqlDataReader
            Dim registerfinal21 As New MySqlDataAdapter

            Dim sqlquery21 = "UPDATE Account SET SkillRating = '" & msr & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand21.Connection = conn
            myCommand21.CommandText = sqlquery21
            registerfinal21.SelectCommand = myCommand21
            myData21 = myCommand21.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter22 As New MySqlDataAdapter
            Dim myCommand22 As New MySqlCommand
            Dim myData22 As MySqlDataReader
            Dim registerfinal22 As New MySqlDataAdapter

            Dim sqlquery22 = "UPDATE Account SET SkillRating = '" & osr & "' WHERE Username = '" & r2.Text & "'"
            myCommand22.Connection = conn
            myCommand22.CommandText = sqlquery22
            registerfinal22.SelectCommand = myCommand22
            myData22 = myCommand22.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter23 As New MySqlDataAdapter
            Dim myCommand23 As New MySqlCommand
            Dim myData23 As MySqlDataReader
            Dim registerfinal23 As New MySqlDataAdapter

            Dim sqlquery23 = "UPDATE Account SET KCPoint = '" & mkc & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand23.Connection = conn
            myCommand23.CommandText = sqlquery23
            registerfinal23.SelectCommand = myCommand23
            myData23 = myCommand23.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter24 As New MySqlDataAdapter
            Dim myCommand24 As New MySqlCommand
            Dim myData24 As MySqlDataReader
            Dim registerfinal24 As New MySqlDataAdapter

            Dim sqlquery24 = "UPDATE Account SET KCPoint = '" & okc & "' WHERE Username = '" & r2.Text & "'"
            myCommand24.Connection = conn
            myCommand24.CommandText = sqlquery24
            registerfinal24.SelectCommand = myCommand24
            myData24 = myCommand24.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter25 As New MySqlDataAdapter
            Dim myCommand25 As New MySqlCommand
            Dim myData25 As MySqlDataReader
            Dim registerfinal25 As New MySqlDataAdapter

            Dim sqlquery25 = "UPDATE Account SET Win = '" & i + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand25.Connection = conn
            myCommand25.CommandText = sqlquery25
            registerfinal25.SelectCommand = myCommand25
            myData25 = myCommand25.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter26 As New MySqlDataAdapter
            Dim myCommand26 As New MySqlCommand
            Dim myData26 As MySqlDataReader
            Dim registerfinal26 As New MySqlDataAdapter

            Dim sqlquery26 = "UPDATE Account SET Lost = '" & mmmmm + 1 & "' WHERE Username = '" & r2.Text & "'"
            myCommand26.Connection = conn
            myCommand26.CommandText = sqlquery26
            registerfinal26.SelectCommand = myCommand26
            myData26 = myCommand26.ExecuteReader

            conn.Close()
            conn.Open()

            If Form1.Label227.Text <> "" Then
                Dim myAdapter19 As New MySqlDataAdapter
                Dim myCommand19 As New MySqlCommand
                Dim myData19 As MySqlDataReader
                Dim registerfinal19 As New MySqlDataAdapter

                Dim sqlquery19 = "UPDATE Team SET XP = '" & mtxp & "' WHERE TeamName = '" & Form1.Label227.Text & "'"
                myCommand19.Connection = conn
                myCommand19.CommandText = sqlquery19
                registerfinal19.SelectCommand = myCommand19
                myData19 = myCommand19.ExecuteReader
            End If

            conn.Close()
            conn.Open()

            If bbb <> "" Then
                Dim myAdapter20 As New MySqlDataAdapter
                Dim myCommand20 As New MySqlCommand
                Dim myData20 As MySqlDataReader
                Dim registerfinal20 As New MySqlDataAdapter

                Dim sqlquery20 = "UPDATE Team SET XP = '" & otxp & "' WHERE TeamName = '" & bbb & "'"
                myCommand20.Connection = conn
                myCommand20.CommandText = sqlquery20
                registerfinal20.SelectCommand = myCommand20
                myData20 = myCommand20.ExecuteReader
            End If

            conn.Close()

            '''''''''''''''''''''''''''''''''

            conn.Close()
            conn.Open()

            If item1 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If
            If item2 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If
            If item3 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If
            If item4 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If




        End If







        If aa = "8" Then
            Dim myAdapter1 As New MySqlDataAdapter
            Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
            Dim myCommand1 As New MySqlCommand()
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            myAdapter1.SelectCommand = myCommand1
            Dim myData1 As MySqlDataReader
            myData1 = myCommand1.ExecuteReader
            myData1.Read()
            xx = myData1.GetString("SkillRating")
            yy = myData1.GetString("KCPoint")
            zz = myData1.GetString("KCGold")
            bb = myData1.GetString("XP")
            cci = myData1.GetString("itemoneg")
            ccii = myData1.GetString("itemtwog")
            cciii = myData1.GetString("itemthreeg")
            cciiii = myData1.GetString("itemfourg")
            xpi = myData1.GetString("itemonexp")
            xpii = myData1.GetString("itemtwoxp")
            xpiii = myData1.GetString("itemthreexp")
            xpiiii = myData1.GetString("itemfourxp")
            i = myData1.GetString("Win")
            m = myData1.GetString("Draw")
            c = myData1.GetString("Lost")
            conn.Close()
            conn.Open()
            mm = 0
            ii = 0
            aaa = 1
            If Form1.Label227.Text <> "" Then
                Dim myAdapter2 As New MySqlDataAdapter
                Dim sqlquery2 = "SELECT * FROM Team WHERE TeamName = '" & Form1.Label227.Text & "'"
                Dim myCommand2 As New MySqlCommand()
                myCommand2.Connection = conn
                myCommand2.CommandText = sqlquery2
                myAdapter2.SelectCommand = myCommand2
                Dim myData2 As MySqlDataReader
                myData2 = myCommand2.ExecuteReader
                myData2.Read()
                oo = myData2.GetString("XP")
                ii = myData2.GetString("ExtraXP")
                mm = myData2.GetString("ExtraGold")
                xxx = myData2.GetString("ExtraKC")
                yyy = myData2.GetString("TitanGrip")
                If yyy = "Yes" Then
                    aaa = 2
                End If
                If yyy = "No" Then
                    aaa = 1
                End If
            End If
            conn.Close()
            conn.Open()
            Dim myAdapter3 As New MySqlDataAdapter
            Dim sqlquery3 = "SELECT * FROM Account WHERE username = '" & r2.Text & "'"
            Dim myCommand3 As New MySqlCommand()
            myCommand3.Connection = conn
            myCommand3.CommandText = sqlquery3
            myAdapter3.SelectCommand = myCommand3
            Dim myData3 As MySqlDataReader
            myData3 = myCommand3.ExecuteReader
            myData3.Read()
            x = myData3.GetString("Challengeone")
            y = myData3.GetString("Challengetwo")
            ooo = myData3.GetString("SkillRating")
            iii = myData3.GetString("KCPoint")
            mmm = myData3.GetString("KCGold")
            oooo = myData3.GetString("XP")
            cco = myData3.GetString("itemoneg")
            ccoo = myData3.GetString("itemtwog")
            ccooo = myData3.GetString("itemthreeg")
            ccoooo = myData3.GetString("itemfourg")
            xpo = myData3.GetString("itemonexp")
            xpoo = myData3.GetString("itemtwoxp")
            xpooo = myData3.GetString("itemthreexp")
            xpoooo = myData3.GetString("itemfourxp")
            ooooo = myData3.GetString("Win")
            iiiii = myData3.GetString("Draw")
            mmmmm = myData3.GetString("Lost")
            bbb = myData3.GetString("Team")
            conn.Close()
            conn.Open()
            cccc = 0
            ccccc = 1
            bbbb = 0
            If bbb <> "" Then
                Dim myAdapter40 As New MySqlDataAdapter
                Dim sqlquery40 = "SELECT * FROM Team WHERE TeamName = '" & bbb & "'"
                Dim myCommand40 As New MySqlCommand()
                myCommand40.Connection = conn
                myCommand40.CommandText = sqlquery40
                myAdapter40.SelectCommand = myCommand40
                Dim myData40 As MySqlDataReader
                myData40 = myCommand40.ExecuteReader
                myData40.Read()
                aaaa = myData40.GetString("XP")
                bbbb = myData40.GetString("ExtraXP")
                cccc = myData40.GetString("ExtraGold")
                aaaaa = myData40.GetString("ExtraKC")
                bbbbb = myData40.GetString("TitanGrip")
                If bbbbb = "Yes" Then
                    ccccc = 2
                End If
                If bbbbb = "No" Then
                    ccccc = 1
                End If
            End If
            f = 20 + ((ooo - xx) * 0.01)
            ee = f * (cci + ccii + cciii + cciiii)
            eee = f * mm
            mgold = zz + ((f + ee + eee) * aaa)
            ff = 20 + ((xx - ooo) * 0.01)
            eeee = ff * (cco + ccoo + ccooo + ccoooo)
            eeeee = ff * cccc
            ogold = mmm + ((ff + eeee + eeeee) * ccccc)

            f = 20 + ((ooo - xx) * 0.01)
            ee = f * (xpi + xpii + xpiii + xpiiii)
            eee = f * ii
            mxp = bb + ((f + ee + eee) * aaa)
            ff = 20 + ((xx - ooo) * 0.01)
            eeee = ff * (xpo + xpoo + xpooo + xpoooo)
            eeeee = ff * bbbb
            oxp = oooo + ((ff + eeee + eeeee) * ccccc)

            f = 20 + ((ooo - xx) * 0.01)
            ee = f * (xpi + xpii + xpiii + xpiiii)
            eee = f * ii
            mtxp = oo + ((f + ee + eee) * aaa)
            ff = 20 + ((xx - ooo) * 0.01)
            eeee = ff * (xpo + xpoo + xpooo + xpoooo)
            eeeee = ff * bbbb
            otxp = aaaa + ((ff + eeee + eeeee) * ccccc)

            f = 0 + ((ooo - xx) * 0.01)
            msr = xx + f
            ff = 0 + ((xx - ooo) * 0.01)
            osr = ooo + ff

            f = 2 + ((ooo - xx) * 0.005)
            eee = f * xxx
            mkc = yy + ((f + eee) * aaa)
            ff = 2 + ((xx - ooo) * 0.001)
            eeeee = ff * aaaaa
            okc = iii + ((ff + eeeee) * ccccc)


            conn.Close()
            conn.Open()

            Dim myAdapter14 As New MySqlDataAdapter
            Dim myCommand14 As New MySqlCommand
            Dim myData14 As MySqlDataReader
            Dim registerfinal14 As New MySqlDataAdapter

            Dim sqlquery14 = "UPDATE Account SET KCGold = '" & mgold & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand14.Connection = conn
            myCommand14.CommandText = sqlquery14
            registerfinal14.SelectCommand = myCommand14
            myData14 = myCommand14.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter15 As New MySqlDataAdapter
            Dim myCommand15 As New MySqlCommand
            Dim myData15 As MySqlDataReader
            Dim registerfinal15 As New MySqlDataAdapter

            Dim sqlquery15 = "UPDATE Account SET KCGold = '" & ogold & "' WHERE Username = '" & r2.Text & "'"
            myCommand15.Connection = conn
            myCommand15.CommandText = sqlquery15
            registerfinal15.SelectCommand = myCommand15
            myData15 = myCommand15.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter17 As New MySqlDataAdapter
            Dim myCommand17 As New MySqlCommand
            Dim myData17 As MySqlDataReader
            Dim registerfinal17 As New MySqlDataAdapter

            Dim sqlquery17 = "UPDATE Account SET XP = '" & mxp & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand17.Connection = conn
            myCommand17.CommandText = sqlquery17
            registerfinal17.SelectCommand = myCommand17
            myData17 = myCommand17.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter18 As New MySqlDataAdapter
            Dim myCommand18 As New MySqlCommand
            Dim myData18 As MySqlDataReader
            Dim registerfinal18 As New MySqlDataAdapter

            Dim sqlquery18 = "UPDATE Account SET XP = '" & oxp & "' WHERE Username = '" & r2.Text & "'"
            myCommand18.Connection = conn
            myCommand18.CommandText = sqlquery18
            registerfinal18.SelectCommand = myCommand18
            myData18 = myCommand18.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter21 As New MySqlDataAdapter
            Dim myCommand21 As New MySqlCommand
            Dim myData21 As MySqlDataReader
            Dim registerfinal21 As New MySqlDataAdapter

            Dim sqlquery21 = "UPDATE Account SET SkillRating = '" & msr & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand21.Connection = conn
            myCommand21.CommandText = sqlquery21
            registerfinal21.SelectCommand = myCommand21
            myData21 = myCommand21.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter22 As New MySqlDataAdapter
            Dim myCommand22 As New MySqlCommand
            Dim myData22 As MySqlDataReader
            Dim registerfinal22 As New MySqlDataAdapter

            Dim sqlquery22 = "UPDATE Account SET SkillRating = '" & osr & "' WHERE Username = '" & r2.Text & "'"
            myCommand22.Connection = conn
            myCommand22.CommandText = sqlquery22
            registerfinal22.SelectCommand = myCommand22
            myData22 = myCommand22.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter23 As New MySqlDataAdapter
            Dim myCommand23 As New MySqlCommand
            Dim myData23 As MySqlDataReader
            Dim registerfinal23 As New MySqlDataAdapter

            Dim sqlquery23 = "UPDATE Account SET KCPoint = '" & mkc & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand23.Connection = conn
            myCommand23.CommandText = sqlquery23
            registerfinal23.SelectCommand = myCommand23
            myData23 = myCommand23.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter24 As New MySqlDataAdapter
            Dim myCommand24 As New MySqlCommand
            Dim myData24 As MySqlDataReader
            Dim registerfinal24 As New MySqlDataAdapter

            Dim sqlquery24 = "UPDATE Account SET KCPoint = '" & okc & "' WHERE Username = '" & r2.Text & "'"
            myCommand24.Connection = conn
            myCommand24.CommandText = sqlquery24
            registerfinal24.SelectCommand = myCommand24
            myData24 = myCommand24.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter25 As New MySqlDataAdapter
            Dim myCommand25 As New MySqlCommand
            Dim myData25 As MySqlDataReader
            Dim registerfinal25 As New MySqlDataAdapter

            Dim sqlquery25 = "UPDATE Account SET Draw = '" & m + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand25.Connection = conn
            myCommand25.CommandText = sqlquery25
            registerfinal25.SelectCommand = myCommand25
            myData25 = myCommand25.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter26 As New MySqlDataAdapter
            Dim myCommand26 As New MySqlCommand
            Dim myData26 As MySqlDataReader
            Dim registerfinal26 As New MySqlDataAdapter

            Dim sqlquery26 = "UPDATE Account SET Draw = '" & iiiii + 1 & "' WHERE Username = '" & r2.Text & "'"
            myCommand26.Connection = conn
            myCommand26.CommandText = sqlquery26
            registerfinal26.SelectCommand = myCommand26
            myData26 = myCommand26.ExecuteReader

            conn.Close()
            conn.Open()

            If Form1.Label227.Text <> "" Then
                Dim myAdapter19 As New MySqlDataAdapter
                Dim myCommand19 As New MySqlCommand
                Dim myData19 As MySqlDataReader
                Dim registerfinal19 As New MySqlDataAdapter

                Dim sqlquery19 = "UPDATE Team SET XP = '" & mtxp & "' WHERE TeamName = '" & Form1.Label227.Text & "'"
                myCommand19.Connection = conn
                myCommand19.CommandText = sqlquery19
                registerfinal19.SelectCommand = myCommand19
                myData19 = myCommand19.ExecuteReader
            End If

            conn.Close()
            conn.Open()

            If bbb <> "" Then
                Dim myAdapter20 As New MySqlDataAdapter
                Dim myCommand20 As New MySqlCommand
                Dim myData20 As MySqlDataReader
                Dim registerfinal20 As New MySqlDataAdapter

                Dim sqlquery20 = "UPDATE Team SET XP = '" & otxp & "' WHERE TeamName = '" & bbb & "'"
                myCommand20.Connection = conn
                myCommand20.CommandText = sqlquery20
                registerfinal20.SelectCommand = myCommand20
                myData20 = myCommand20.ExecuteReader
            End If

            conn.Close()

        End If










        If aa = "9" Then
            Dim myAdapter1 As New MySqlDataAdapter
            Dim sqlquery1 = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
            Dim myCommand1 As New MySqlCommand()
            myCommand1.Connection = conn
            myCommand1.CommandText = sqlquery1
            myAdapter1.SelectCommand = myCommand1
            Dim myData1 As MySqlDataReader
            myData1 = myCommand1.ExecuteReader
            myData1.Read()
            xx = myData1.GetString("SkillRating")
            yy = myData1.GetString("KCPoint")
            zz = myData1.GetString("KCGold")
            bb = myData1.GetString("XP")
            cci = myData1.GetString("itemoneg")
            ccii = myData1.GetString("itemtwog")
            cciii = myData1.GetString("itemthreeg")
            cciiii = myData1.GetString("itemfourg")
            xpi = myData1.GetString("itemonexp")
            xpii = myData1.GetString("itemtwoxp")
            xpiii = myData1.GetString("itemthreexp")
            xpiiii = myData1.GetString("itemfourxp")
            i = myData1.GetString("Win")
            m = myData1.GetString("Draw")
            c = myData1.GetString("Lost")
            conn.Close()
            conn.Open()
            mm = 0
            ii = 0
            aaa = 1
            If Form1.Label227.Text <> "" Then
                Dim myAdapter2 As New MySqlDataAdapter
                Dim sqlquery2 = "SELECT * FROM Team WHERE TeamName = '" & Form1.Label227.Text & "'"
                Dim myCommand2 As New MySqlCommand()
                myCommand2.Connection = conn
                myCommand2.CommandText = sqlquery2
                myAdapter2.SelectCommand = myCommand2
                Dim myData2 As MySqlDataReader
                myData2 = myCommand2.ExecuteReader
                myData2.Read()
                oo = myData2.GetString("XP")
                ii = myData2.GetString("ExtraXP")
                mm = myData2.GetString("ExtraGold")
                xxx = myData2.GetString("ExtraKC")
                yyy = myData2.GetString("TitanGrip")
                If yyy = "Yes" Then
                    aaa = 2
                End If
                If yyy = "No" Then
                    aaa = 1
                End If
            End If
            conn.Close()
            conn.Open()
            Dim myAdapter3 As New MySqlDataAdapter
            Dim sqlquery3 = "SELECT * FROM Account WHERE username = '" & r2.Text & "'"
            Dim myCommand3 As New MySqlCommand()
            myCommand3.Connection = conn
            myCommand3.CommandText = sqlquery3
            myAdapter3.SelectCommand = myCommand3
            Dim myData3 As MySqlDataReader
            myData3 = myCommand3.ExecuteReader
            myData3.Read()
            x = myData3.GetString("Challengeone")
            y = myData3.GetString("Challengetwo")
            ooo = myData3.GetString("SkillRating")
            iii = myData3.GetString("KCPoint")
            mmm = myData3.GetString("KCGold")
            oooo = myData3.GetString("XP")
            cco = myData3.GetString("itemoneg")
            ccoo = myData3.GetString("itemtwog")
            ccooo = myData3.GetString("itemthreeg")
            ccoooo = myData3.GetString("itemfourg")
            xpo = myData3.GetString("itemonexp")
            xpoo = myData3.GetString("itemtwoxp")
            xpooo = myData3.GetString("itemthreexp")
            xpoooo = myData3.GetString("itemfourxp")
            ooooo = myData3.GetString("Win")
            iiiii = myData3.GetString("Draw")
            mmmmm = myData3.GetString("Lost")
            oitem1 = myData3.GetString("itemonen")
            oitem2 = myData3.GetString("itemtwon")
            oitem3 = myData3.GetString("itemthreen")
            oitem4 = myData3.GetString("itemfourn")
            frostmourneshard = myData3.GetString("fs")
            bbb = myData3.GetString("Team")
            conn.Close()
            conn.Open()
            cccc = 0
            ccccc = 1
            bbbb = 0
            If bbb <> "" Then
                Dim myAdapter40 As New MySqlDataAdapter
                Dim sqlquery40 = "SELECT * FROM Team WHERE TeamName = '" & bbb & "'"
                Dim myCommand40 As New MySqlCommand()
                myCommand40.Connection = conn
                myCommand40.CommandText = sqlquery40
                myAdapter40.SelectCommand = myCommand40
                Dim myData40 As MySqlDataReader
                myData40 = myCommand40.ExecuteReader
                myData40.Read()
                aaaa = myData40.GetString("XP")
                bbbb = myData40.GetString("ExtraXP")
                cccc = myData40.GetString("ExtraGold")
                aaaaa = myData40.GetString("ExtraKC")
                bbbbb = myData40.GetString("TitanGrip")
                If bbbbb = "Yes" Then
                    ccccc = 2
                End If
                If bbbbb = "No" Then
                    ccccc = 1
                End If
            End If
            f = 10 + ((ooo - xx) * 0.01)
            ee = f * (cci + ccii + cciii + cciiii)
            eee = f * mm
            mgold = zz + ((f + ee + eee) * aaa)
            ff = 50 + ((xx - ooo) * 0.1)
            eeee = ff * (cco + ccoo + ccooo + ccoooo)
            eeeee = ff * cccc
            ogold = mmm + ((ff + eeee + eeeee) * ccccc)

            f = 10 + ((ooo - xx) * 0.01)
            ee = f * (xpi + xpii + xpiii + xpiiii)
            eee = f * ii
            mxp = bb + ((f + ee + eee) * aaa)
            ff = 50 + ((xx - ooo) * 0.1)
            eeee = ff * (xpo + xpoo + xpooo + xpoooo)
            eeeee = ff * bbbb
            oxp = oooo + ((ff + eeee + eeeee) * ccccc)

            f = 10 + ((ooo - xx) * 0.01)
            ee = f * (xpi + xpii + xpiii + xpiiii)
            eee = f * ii
            mtxp = oo + ((f + ee + eee) * aaa)
            ff = 50 + ((xx - ooo) * 0.1)
            eeee = ff * (xpo + xpoo + xpooo + xpoooo)
            eeeee = ff * bbbb
            otxp = aaaa + ((ff + eeee + eeeee) * ccccc)

            f = (-10) + ((ooo - xx) * 0.02)
            msr = xx + f
            ff = 10 + ((xx - ooo) * 0.02)
            osr = ooo + ff

            f = 1 + ((ooo - xx) * 0.001)
            eee = f * xxx
            mkc = yy + ((f + eee) * aaa)
            ff = 3 + ((xx - ooo) * 0.005)
            eeeee = ff * aaaaa
            okc = iii + ((ff + eeeee) * ccccc)


            conn.Close()
            conn.Open()

            Dim myAdapter14 As New MySqlDataAdapter
            Dim myCommand14 As New MySqlCommand
            Dim myData14 As MySqlDataReader
            Dim registerfinal14 As New MySqlDataAdapter

            Dim sqlquery14 = "UPDATE Account SET KCGold = '" & mgold & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand14.Connection = conn
            myCommand14.CommandText = sqlquery14
            registerfinal14.SelectCommand = myCommand14
            myData14 = myCommand14.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter15 As New MySqlDataAdapter
            Dim myCommand15 As New MySqlCommand
            Dim myData15 As MySqlDataReader
            Dim registerfinal15 As New MySqlDataAdapter

            Dim sqlquery15 = "UPDATE Account SET KCGold = '" & ogold & "' WHERE Username = '" & r2.Text & "'"
            myCommand15.Connection = conn
            myCommand15.CommandText = sqlquery15
            registerfinal15.SelectCommand = myCommand15
            myData15 = myCommand15.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter17 As New MySqlDataAdapter
            Dim myCommand17 As New MySqlCommand
            Dim myData17 As MySqlDataReader
            Dim registerfinal17 As New MySqlDataAdapter

            Dim sqlquery17 = "UPDATE Account SET XP = '" & mxp & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand17.Connection = conn
            myCommand17.CommandText = sqlquery17
            registerfinal17.SelectCommand = myCommand17
            myData17 = myCommand17.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter18 As New MySqlDataAdapter
            Dim myCommand18 As New MySqlCommand
            Dim myData18 As MySqlDataReader
            Dim registerfinal18 As New MySqlDataAdapter

            Dim sqlquery18 = "UPDATE Account SET XP = '" & oxp & "' WHERE Username = '" & r2.Text & "'"
            myCommand18.Connection = conn
            myCommand18.CommandText = sqlquery18
            registerfinal18.SelectCommand = myCommand18
            myData18 = myCommand18.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter21 As New MySqlDataAdapter
            Dim myCommand21 As New MySqlCommand
            Dim myData21 As MySqlDataReader
            Dim registerfinal21 As New MySqlDataAdapter

            Dim sqlquery21 = "UPDATE Account SET SkillRating = '" & msr & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand21.Connection = conn
            myCommand21.CommandText = sqlquery21
            registerfinal21.SelectCommand = myCommand21
            myData21 = myCommand21.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter22 As New MySqlDataAdapter
            Dim myCommand22 As New MySqlCommand
            Dim myData22 As MySqlDataReader
            Dim registerfinal22 As New MySqlDataAdapter

            Dim sqlquery22 = "UPDATE Account SET SkillRating = '" & osr & "' WHERE Username = '" & r2.Text & "'"
            myCommand22.Connection = conn
            myCommand22.CommandText = sqlquery22
            registerfinal22.SelectCommand = myCommand22
            myData22 = myCommand22.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter23 As New MySqlDataAdapter
            Dim myCommand23 As New MySqlCommand
            Dim myData23 As MySqlDataReader
            Dim registerfinal23 As New MySqlDataAdapter

            Dim sqlquery23 = "UPDATE Account SET KCPoint = '" & mkc & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand23.Connection = conn
            myCommand23.CommandText = sqlquery23
            registerfinal23.SelectCommand = myCommand23
            myData23 = myCommand23.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter24 As New MySqlDataAdapter
            Dim myCommand24 As New MySqlCommand
            Dim myData24 As MySqlDataReader
            Dim registerfinal24 As New MySqlDataAdapter

            Dim sqlquery24 = "UPDATE Account SET KCPoint = '" & okc & "' WHERE Username = '" & r2.Text & "'"
            myCommand24.Connection = conn
            myCommand24.CommandText = sqlquery24
            registerfinal24.SelectCommand = myCommand24
            myData24 = myCommand24.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter25 As New MySqlDataAdapter
            Dim myCommand25 As New MySqlCommand
            Dim myData25 As MySqlDataReader
            Dim registerfinal25 As New MySqlDataAdapter

            Dim sqlquery25 = "UPDATE Account SET Lost = '" & c + 1 & "' WHERE Username = '" & Form1.Label7.Text & "'"
            myCommand25.Connection = conn
            myCommand25.CommandText = sqlquery25
            registerfinal25.SelectCommand = myCommand25
            myData25 = myCommand25.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter26 As New MySqlDataAdapter
            Dim myCommand26 As New MySqlCommand
            Dim myData26 As MySqlDataReader
            Dim registerfinal26 As New MySqlDataAdapter

            Dim sqlquery26 = "UPDATE Account SET Win = '" & ooooo + 1 & "' WHERE Username = '" & r2.Text & "'"
            myCommand26.Connection = conn
            myCommand26.CommandText = sqlquery26
            registerfinal26.SelectCommand = myCommand26
            myData26 = myCommand26.ExecuteReader

            conn.Close()
            conn.Open()

            If Form1.Label227.Text <> "" Then
                Dim myAdapter19 As New MySqlDataAdapter
                Dim myCommand19 As New MySqlCommand
                Dim myData19 As MySqlDataReader
                Dim registerfinal19 As New MySqlDataAdapter

                Dim sqlquery19 = "UPDATE Team SET XP = '" & mtxp & "' WHERE TeamName = '" & Form1.Label227.Text & "'"
                myCommand19.Connection = conn
                myCommand19.CommandText = sqlquery19
                registerfinal19.SelectCommand = myCommand19
                myData19 = myCommand19.ExecuteReader
            End If

            conn.Close()
            conn.Open()

            If bbb <> "" Then
                Dim myAdapter20 As New MySqlDataAdapter
                Dim myCommand20 As New MySqlCommand
                Dim myData20 As MySqlDataReader
                Dim registerfinal20 As New MySqlDataAdapter

                Dim sqlquery20 = "UPDATE Team SET XP = '" & otxp & "' WHERE TeamName = '" & bbb & "'"
                myCommand20.Connection = conn
                myCommand20.CommandText = sqlquery20
                registerfinal20.SelectCommand = myCommand20
                myData20 = myCommand20.ExecuteReader
            End If

            conn.Close()

            conn.Close()
            conn.Open()

            If oitem1 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & textbox1.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If
            If oitem1 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & textbox1.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If
            If oitem1 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & textbox1.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If
            If oitem1 = "Shadowmourne" Then

                Dim myAdapter35 As New MySqlDataAdapter
                Dim myCommand35 As New MySqlCommand
                Dim myData35 As MySqlDataReader
                Dim registerfinal35 As New MySqlDataAdapter
                Dim sqlquery35 = "UPDATE Account SET fs = '" & frostmourneshard + 1 & "' WHERE Username = '" & textbox1.Text & "'"
                myCommand35.Connection = conn
                myCommand35.CommandText = sqlquery35
                registerfinal35.SelectCommand = myCommand35
                myData35 = myCommand35.ExecuteReader

                conn.Close()
                conn.Open()

            End If


        End If













        conn.Close()
        conn.Open()

        Dim myAdapter13 As New MySqlDataAdapter
        Dim sqlquery13 = "SELECT * FROM Account WHERE username = '" & Form1.Label7.Text & "'"
        Dim myCommand13 As New MySqlCommand()
        myCommand13.Connection = conn
        myCommand13.CommandText = sqlquery
        myAdapter13.SelectCommand = myCommand13
        Dim myData13 As MySqlDataReader
        myData13 = myCommand13.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter5 As New MySqlDataAdapter
        Dim myCommand5 As New MySqlCommand
        Dim myData5 As MySqlDataReader
        Dim registerfinal5 As New MySqlDataAdapter

        Dim sqlquery5 = "UPDATE Account SET Challengetwo = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand5.Connection = conn
        myCommand5.CommandText = sqlquery5
        registerfinal5.SelectCommand = myCommand5
        myData5 = myCommand5.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter6 As New MySqlDataAdapter
        Dim myCommand6 As New MySqlCommand
        Dim myData6 As MySqlDataReader
        Dim registerfinal6 As New MySqlDataAdapter

        Dim sqlquery6 = "UPDATE Account SET Challengetwog = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand6.Connection = conn
        myCommand6.CommandText = sqlquery6
        registerfinal6.SelectCommand = myCommand6
        myData6 = myCommand6.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter7 As New MySqlDataAdapter
        Dim myCommand7 As New MySqlCommand
        Dim myData7 As MySqlDataReader
        Dim registerfinal7 As New MySqlDataAdapter

        Dim sqlquery7 = "UPDATE Account SET Challengetwor = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand7.Connection = conn
        myCommand7.CommandText = sqlquery7
        registerfinal7.SelectCommand = myCommand7
        myData7 = myCommand7.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter8 As New MySqlDataAdapter
        Dim myCommand8 As New MySqlCommand
        Dim myData8 As MySqlDataReader
        Dim registerfinal8 As New MySqlDataAdapter

        Dim sqlquery8 = "UPDATE Account SET Challengetwos = '" & "" & "' WHERE Username = '" & Form1.Label7.Text & "'"
        myCommand8.Connection = conn
        myCommand8.CommandText = sqlquery8
        registerfinal8.SelectCommand = myCommand8
        myData8 = myCommand8.ExecuteReader

        conn.Close()
        conn.Open()

        Dim myAdapter16 As New MySqlDataAdapter
        Dim sqlquery16 = "SELECT * FROM Account WHERE username = '" & r2.Text & "'"
        Dim myCommand16 As New MySqlCommand()
        myCommand16.Connection = conn
        myCommand16.CommandText = sqlquery16
        myAdapter16.SelectCommand = myCommand16
        Dim myData16 As MySqlDataReader
        myData16 = myCommand16.ExecuteReader
        myData16.Read()
        x = myData16.GetString("Challengeone")
        y = myData16.GetString("Challengetwo")

        If x = Form1.Label7.Text Then
            conn.Close()
            conn.Open()

            Dim myAdapter9 As New MySqlDataAdapter
            Dim myCommand9 As New MySqlCommand
            Dim myData9 As MySqlDataReader
            Dim registerfinal9 As New MySqlDataAdapter

            Dim sqlquery9 = "UPDATE Account SET Challengeone = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand9.Connection = conn
            myCommand9.CommandText = sqlquery9
            registerfinal9.SelectCommand = myCommand9
            myData9 = myCommand9.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter10 As New MySqlDataAdapter
            Dim myCommand10 As New MySqlCommand
            Dim myData10 As MySqlDataReader
            Dim registerfinal10 As New MySqlDataAdapter

            Dim sqlquery10 = "UPDATE Account SET Challengeoneg = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand10.Connection = conn
            myCommand10.CommandText = sqlquery10
            registerfinal10.SelectCommand = myCommand10
            myData10 = myCommand10.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter11 As New MySqlDataAdapter
            Dim myCommand11 As New MySqlCommand
            Dim myData11 As MySqlDataReader
            Dim registerfinal11 As New MySqlDataAdapter

            Dim sqlquery11 = "UPDATE Account SET Challengeoner = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand11.Connection = conn
            myCommand11.CommandText = sqlquery11
            registerfinal11.SelectCommand = myCommand11
            myData11 = myCommand11.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter12 As New MySqlDataAdapter
            Dim myCommand12 As New MySqlCommand
            Dim myData12 As MySqlDataReader
            Dim registerfinal12 As New MySqlDataAdapter

            Dim sqlquery12 = "UPDATE Account SET Challengeones = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand12.Connection = conn
            myCommand12.CommandText = sqlquery12
            registerfinal12.SelectCommand = myCommand12
            myData12 = myCommand12.ExecuteReader

            conn.Close()
            conn.Open()
        End If
        If y = Form1.Label7.Text Then
            conn.Close()
            conn.Open()

            Dim myAdapter9 As New MySqlDataAdapter
            Dim myCommand9 As New MySqlCommand
            Dim myData9 As MySqlDataReader
            Dim registerfinal9 As New MySqlDataAdapter

            Dim sqlquery9 = "UPDATE Account SET Challengetwo = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand9.Connection = conn
            myCommand9.CommandText = sqlquery9
            registerfinal9.SelectCommand = myCommand9
            myData9 = myCommand9.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter10 As New MySqlDataAdapter
            Dim myCommand10 As New MySqlCommand
            Dim myData10 As MySqlDataReader
            Dim registerfinal10 As New MySqlDataAdapter

            Dim sqlquery10 = "UPDATE Account SET Challengetwog = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand10.Connection = conn
            myCommand10.CommandText = sqlquery10
            registerfinal10.SelectCommand = myCommand10
            myData10 = myCommand10.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter11 As New MySqlDataAdapter
            Dim myCommand11 As New MySqlCommand
            Dim myData11 As MySqlDataReader
            Dim registerfinal11 As New MySqlDataAdapter

            Dim sqlquery11 = "UPDATE Account SET Challengetwor = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand11.Connection = conn
            myCommand11.CommandText = sqlquery11
            registerfinal11.SelectCommand = myCommand11
            myData11 = myCommand11.ExecuteReader

            conn.Close()
            conn.Open()

            Dim myAdapter12 As New MySqlDataAdapter
            Dim myCommand12 As New MySqlCommand
            Dim myData12 As MySqlDataReader
            Dim registerfinal12 As New MySqlDataAdapter

            Dim sqlquery12 = "UPDATE Account SET Challengetwos = '" & "" & "' WHERE Username = '" & r2.Text & "'"
            myCommand12.Connection = conn
            myCommand12.CommandText = sqlquery12
            registerfinal12.SelectCommand = myCommand12
            myData12 = myCommand12.ExecuteReader

            conn.Close()
            conn.Open()
        End If
        conn.Close()
        Me.Hide()
        Form5.Hide()
        Login.Login()
    End Sub

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
        Login.Login()
    End Sub

End Class