Module Connectdb
    Public registerSuccess As Boolean = False
    Public LoginSuccess As Boolean = False
    Public correctAnswer As String
    Public scoreIT As Integer

    Public Sub RegisterToDbase(ByVal username As String, ByVal pass As String, ByVal studno As String)
        Dim cn As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
        Dim query As String

        query = "INSERT INTO Accounts(Username,Pass,StudNo) VALUES(@Username,@Pass,@Studno)"

        cn = New OleDb.OleDbConnection
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurDir() & "\tblUsers.mdb"
        cn.Open()

        cmd.Connection = cn
        cmd.CommandText = query
        cmd.Parameters.AddWithValue("@Username", username)
        cmd.Parameters.AddWithValue("@Pass", pass)
        cmd.Parameters.AddWithValue("@Studno", studno)
        cmd.ExecuteNonQuery()

        cn.Close()
        registerSuccess = True
    End Sub

    Public Sub LoginToDbase(ByVal username As String, ByVal pass As String)
        Dim cn As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
        Dim query As String
        Dim dr As OleDb.OleDbDataReader

        query = "Select Username, Pass From Accounts where Username = '" & username & "'"

        cn = New OleDb.OleDbConnection
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurDir() & "\tblUsers.mdb"
        cn.Open()
        cmd.Connection = cn
        cmd.CommandText = query
        dr = cmd.ExecuteReader

        While dr.Read()
            If pass = dr(1).ToString Then
                MsgBox("Login Success")
                cn.Close()
                LoginSuccess = True
                Return
            Else
                MsgBox("Login failed")
                LoginSuccess = False
            End If
        End While
        cn.Close()
    End Sub

    Public Sub GetQuestions(ByVal chapter As Integer, ByVal questionNumber As Integer)
        Dim cn As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
        Dim query As String
        Dim dr As OleDb.OleDbDataReader

        query = "Select Question,optiona,optionb,optionc,optiond,answer From Answers Where ChapterNumber = " & chapter & " And item_num = " & questionNumber & ""
        cn = New OleDb.OleDbConnection
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurDir() & "\tblUsers.mdb"
        cn.Open()
        cmd.Connection = cn
        cmd.CommandText = query

        dr = cmd.ExecuteReader()
        If dr.HasRows = False Then
            MessageBox.Show("Your score is : " & scoreIT)
        End If
        While dr.Read()
            Form5.Label1.Text = dr(0).ToString
            Form5.RadioButton1.Text = dr(1).ToString
            Form5.RadioButton2.Text = dr(2).ToString
            Form5.RadioButton3.Text = dr(3).ToString
            Form5.RadioButton4.Text = dr(4).ToString
            correctAnswer = dr(5).ToString
        End While
    End Sub
End Module