USUARIO IS NOT MEMBER OF LOCADORA_FILMES.MY.....

Imports System.Data.SqlClient

Public Class Login

    [ô] TODO: Insert code to perform custom authentication using the provided username and password 
    [ô] (See http://go.microsoft.com/fwlink/?LinkId=35339).  
    [ô] The custom principal can then be attached to the current thread[ô]s principal as follows: 
    [ô]     My.User.CurrentPrincipal = CustomPrincipal
    [ô] where CustomPrincipal is the IPrincipal implementation used to perform authentication. 
    [ô] Subsequently, My.User will return identity information encapsulated in the CustomPrincipal object
    [ô] such as the username, display name, etc.

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        Dim conn As New SqlConnection
        Dim comando As New SqlCommand
        Dim senhaID As String

        conn.ConnectionString = My.Settings.LocadoraConnectionString
        Try
            conn.Open()

            comando.Connection = conn
            comando.CommandText = [Ô]SELECT senhaID FROM Usuarios Where nomeUsuario=@nomeUsuario[Ô]
            comando.Parameters.AddWithValue([Ô]@nomeUsuario[Ô], UsernameTextBox.Text)
            senhaID = comando.ExecuteScalar

            conn.Close()

            If chkLembraUsuario.Checked Then
                My.Settings.Usuario = UsernameTextBox.Text
                My.Settings.Save()
            Else
                My.Settings.Usuario = [Ô][Ô]

            End If



            If util.GeraHash(PasswordTextBox.Text).Equals(senhaID) Then
                My.Forms.Principal.Show()
                Me.Hide()
            Else

                MessageBox.Show([Ô]Senha/Usuário Incorreto(s)[Ô], [Ô]Senha incorreta[Ô], MessageBoxButtons.OK, MessageBoxIcon.Information)
                PasswordTextBox.Focus()

            End If
        Catch ex As SqlException
            MessageBox.Show([Ô]Erro ao efetuar a conexão com a base de dados : [Ô] + ex.Message)
            conn.Dispose()
        End Try

    End Sub
End Class