Private Sub ButtonSubmit_Click(sender As Object, e As EventArgs) Handles ButtonSubmit.Click
        Dim sqlcon As New SqlConnection With {.ConnectionString = "Server=essql1.walton.uark.edu;Database=PROJF1703;User Id=PROJF1703; Password=NV43wg$;"}
        Dim sqlcmd As SqlCommand
        Dim query As String
        Dim UserName As String
        Dim SQLPassword As String
        Dim GivenPassword As String

        query = "SELECT [UserName], [UserPassword] FROM Authenticate WHERE (UserName='" + TBUsername.Text + "')AND (UserPassword='" + TBPassword.Text + "');"