VB 2010 Login system

Question

Я пытался сделать систему входа в систему некоторое время, но не смог найти хороший учебник или код. Но затем я нашел этот код, который работал так, как должен. Кроме того, есть небольшая проблема. Проблема в том, что я получаю синтаксическую ошибку, и я тоже не смог найти решение этой ошибки.

Не могли бы вы помочь?

Когда я пишу это: Do passline = TextBox2.Text userline = USERREAD.ReadLine В нем говорится, что passline является синтаксической ошибкой.

Это код:

If TextBox1.Text = "" Then 
    MsgBox("You need atleast 1 Character", MsgBoxStyle.Critical) 
ElseIf My.Computer.FileSystem.DirectoryExists("C:\Users\Rebecca\Desktop\ACCOUNTS\ACCOUNTS" + TextBox1.Text + "\") Then 
    Dim USERREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\Users\Rebecca\Desktop\ACCOUNTS\ACCOUNTS" + TextBox1.Text + "\" + "username.txt") 
    Dim userline As String 
    Dim PASSREAD As System.IO.StreamReader = New System.IO.StreamReader("C:\Users\Rebecca\Desktop\ACCOUNTS\ACCOUNTS" + TextBox2.Text + "\" + "password.txt") 
    Dim passline As String 
    Do passline = TextBox2.Text userline = USERREAD.ReadLine Console.WriteLine(passline) 
    Console.WriteLine(userline) 
    Loop Until userline Is Nothing 
    If TextBox2.Text = "" Then 
     MsgBox("Please enter a Password(", MsgBoxStyle.Critical, "ERROR") 
    ElseIf passline = PASSREAD.ReadLine() = True Then 
     MsgBox("Welcome to LoginSystem " + TextBox1.Text) 
    Form2.Show() 
    Me.Hide() 
    Else : MsgBox("The information you entered is Incorrect", MsgBoxStyle.Critical, "ERROR") 
End If 
End If 

Answer 1

Ошибка синтаксиса вызвано отсутствием новых линий в вашем Do цикла, изменение к этому:

Do 
     passline = TextBox2.Text 
     userline = USERREAD.ReadLine 
     Console.WriteLine(passline) 
     Console.WriteLine(userline) 
    Loop Until userline Is Nothing