Imports System

Public Module Module1

    Public Sub Main()

        Dim strusername As String

        Dim strpassword As String

        Dim username As String

        Dim password As String

        Dim username2 As String

        Dim password2 As String

        strusername = "panther5dead"

        strpassword = "assi2001"

        username = "panther5dead"

        password = "assi2001"

        strusername = username

        strpassword = password

        Console.WriteLine("Please Enter Your Username")

        username = Console.ReadLine()

        Console.WriteLine("Please Enter Your Password")

        password = Console.ReadLine()

        If strusername <> username And strpassword <> password Then

            Console.WriteLine("Access Is Denied")

        Else

            Console.WriteLine("Please Create A Hidden Username")

            username2 = Console.ReadLine()

            Console.WriteLine("Please ReType Your Username")

            username2 = Console.ReadLine()

            If username2 <> username2 Then

                Console.WriteLine("Usernames Do Not Match.")

                Console.WriteLine("Please Try Again Later.")

            Else 

                Console.WriteLine("Please Create A Hidden Password")

                password2 = Console.ReadLine()

                Console.WriteLine("Please ReTyoe your Password")

                password2 = Console.ReadLine()

                If password2 <> password2 Then

                    Console.WriteLine("Passwords Do Not Matvh. Please Try Again Later. Thank You!!")

                Else

                    Console.WriteLine("Thank You. You Have Successfully Created An Hidden Account!!!")

                End If

            End If

        End If

        con.ConnectionString = dbProvider & dbSource

​

    con.Open()

​

​

    sql = "SELECT * FROM tblUsers"

    da = New OleDb.OleDbDataAdapter(sql, con)

    da.Fill(ds, "Users")

​

    con.Close()

​

    MaxRows = ds.Tables("Users").Rows.Count

    inc = -1

​

​

    If UserIDTextBox.Text = ds.Tables("tblUsers").Rows(0).Item("UserID") & User_PasswordTextBox.Text = ds.Tables("tblUsers").Rows(0).Item("Password") Then

        MsgBox("This have worked correctly!")

    Else

        MsgBox("This has not worked, try again!")

    End Sub

End Module