Imports MySql.Data.MySqlClient

Public Class Form1
    Public User As String

    Dim MySqlConn As MySqlConnection
    Dim Command As MySqlCommand

    Public Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        User = txtUsername.Text

        Dim Reader As MySqlDataReader

        MySqlConn = New MySqlConnection
        MySqlConn.ConnectionString = "server=localhost;userid=root;password=;database=StairwayToErrors"

        Try
            MySqlConn.Open()
            Dim Query As String
            Query = "SELECT * FROM StairwayToErrors.Learner WHERE Username = '" & txtUsername.Text & "' AND Password = '" & txtPassword.Text & "'"
            Command = New MySqlCommand(Query, MySqlConn)
            Reader = Command.ExecuteReader

            If cmbRole.Text = "Learner" And Reader.HasRows Then
                Form3.Show()
                Me.Hide()
            ElseIf cmbRole.Text = "Admin" And txtUsername.Text = "admin" And txtPassword.Text = "123" Then
                Form3.Show()
                Me.Hide()
            Else
                MessageBox.Show("Feil")
            End If

            MySqlConn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            MySqlConn.Dispose()
        End Try

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form2.Show()
        Me.Hide()
    End Sub
End Class