title: Identifier expected? visual basic
body: <p>im almost done with this and then that... hopefully someone will be able to help me (Really hope so atleast, cus i need to be done with this:P) (need more text cus there is to much code):</p>
  
  <pre><code>|error is there|&gt;    
          Private Sub FlatButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton1_Click. &lt;|error is there|
  
          Dim Conn As New MySqlConnection("Not going to publish this")
  
          If FlatTextBox1.Text = "" Then
              MsgBox("No username specified")
              FlatTextBox2.Text = ""
          Else
              If FlatTextBox2.Text = "" Then
                  MsgBox("No password specified")
                  FlatTextBox1.Text = ""
              Else
                  Try
                      Me.Text = "Logging in..."
                      Conn.Open()
                      Dim sqlquery As String = "SELECT * FROM Testing WHERE Username = '" &amp; FlatTextBox1.Text &amp; "';"
                      Dim data As MySqlDataReader
                      Dim adapter As New MySqlDataAdapter
                      Dim command As New MySqlCommand
                      command.CommandText = sqlquery
                      command.Connection = Conn
                      adapter.SelectCommand = command
                      data = command.ExecuteReader
                      While data.Read()
                          If data.HasRows() = True Then
                              If data(2).ToString = FlatTextBox2.Text Then
                                  Me.Text = "Logged in!"
                                  My.Settings.Username = FlatTextBox1.Text
                                  MsgBox("Welcome " + data(1).ToString)
                                  Home.Show()
                                  Me.Close()
                                  If data(3).ToString = "1" Then
                                      My.Settings.Admin = "Yes"
                                  Else
                                      My.Settings.Admin = "No"
                                  End If
                              End If
                          Else
                              MsgBox("Failed Login")
                          End If
                      End While
  
                  Catch ex As Exception
  
                  End Try
              End If
          End If
      End Sub
  End Class
  </code></pre>