asdasdasdasd

Public Class Form1

    Dim Connection As New OleDb.OleDbConnection
    Dim da As OleDb.OleDbDataAdapter
    Dim ds As New DataSet
    Dim sql As String

    Public Sub conStat()

        If Connection.State = ConnectionState.Open = True Then
            lblConStat.Text = "Connection: OPEN"
            lblConStat.ForeColor = Color.Green
        ElseIf Connection.State = ConnectionState.Closed Then
            lblConStat.Text = "Connection: CLOSED"
            lblConStat.ForeColor = Color.Red
        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim dbProvider As String
        Dim dbSource As String
        Dim MyFolderPath As String
        Dim TheDatabase As String
        Dim FullDatabasePath As String

        dbProvider = "PROVIDER=Microsoft.Ace.OLEDB.12.0;"
        TheDatabase = "\Database Questions.accdb"
        MyFolderPath = "H:\Computing\Chapters\Chapter 5\COMPONENT 2"
        FullDatabasePath = MyFolderPath & TheDatabase

        dbSource = "Data Source = " & FullDatabasePath

        Connection.ConnectionString = dbProvider & dbSource
        Connection.Open()

        conStat()

    End Sub

    Private Sub lblUsername_Click(sender As Object, e As EventArgs) Handles lblUsername.Click

    End Sub

    Private Sub txtUsername_TextChanged(sender As Object, e As EventArgs) Handles txtUsername.TextChanged

    End Sub

    Private Sub lblPassword_Click(sender As Object, e As EventArgs) Handles lblPassword.Click

    End Sub

    Private Sub txtPassword_TextChanged(sender As Object, e As EventArgs) Handles txtPassword.TextChanged

    End Sub

    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click

        Dim strUsername = txtUsername.Text
        Dim strPassword = txtPassword.Text

        If Connection.State = ConnectionState.Open = True Then

            sql = "SELECT Password FROM USERPASS WHERE Username= '" & strUsername & "'"
            da = New OleDb.OleDbDataAdapter(sql, Connection)
            da.Fill(ds, "Credentials")

            Try
                If ds.Tables("Credentials").Rows(0).Item(0) = strPassword Then
                    MsgBox("Login Successful")
                Else
                    MsgBox("Login failed, incorrect password")
                End If
            Catch ex As Exception
                MsgBox("Please enter a valid username and password.")
            End Try

            ds.Clear()


        ElseIf Connection.State = ConnectionState.Closed = True Then
            MsgBox("You must establish a connection before you login.")
        End If

    End Sub

    Private Sub btnFPassword_Click(sender As Object, e As EventArgs) Handles btnFPassword.Click

        Try

            If ForgottenPassword.Visible Then
                ForgottenPassword.Hide()
            Else
                ForgottenPassword.Show()
            End If

            Me.Hide()

        Catch ex As Exception
        End Try

    End Sub

    Private Sub btnCloseConnection_Click(sender As Object, e As EventArgs) Handles btnCloseConnection.Click

        Connection.Close()
        conStat()

    End Sub

    Private Sub btnOpenConnection_Click(sender As Object, e As EventArgs) Handles btnOpenConnection.Click

        Connection.Open()
        conStat()

    End Sub
End Class