Dim cmd As OleDbCommand = New OleDbCommand("SELECT Rank FROM [Log] WHERE [ID] = '" & TextBox1.Text & "'", myConnection)
        Dim dr As OleDbDataReader = cmd.ExecuteReader
        Dim userFound As Boolean = False
        Dim FirstName As String = ""
        Dim LastName As String = ""

	'AQUI CARALHO
	Dim Rank As String


        While dr.Read
          'AQUI CARALHO BOI FDZ PAH CARALHO
	Rank = dr("Rank").ToStringCARALHO
        End While


        If userFound = True Then
            Me.Hide()
            logged.Show()
            logged.Label1.Text = "Bem Vindo " & FirstName
        Else
            MsgBox("Dados Incorretos", MsgBoxStyle.OkOnly, "Invalid Login")
        End If

myConnection.Close()