[CODE]
    Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        Dim objConn As New OdbcConnection(strConn)
        objConn.Open()
        Dim strsql As String = "SELECT * FROM users where " + "user_email='" + txtEmail.Text + "' and user_password='" + txtPassword.Text + "'"
        Dim objCommand As New OdbcCommand(strsql, objConn)

        Dim objDataReader As OdbcDataReader
        objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)
        If objDataReader.Read() Then
            If txtEmail.Text = objDataReader("user_email").ToString() AndAlso txtPassword.Text = objDataReader("user_password").ToString() Then
                Dim nome As String = txtEmail.Text + ":" + objDataReader("user_ruolo")
                FormsAuthentication.RedirectFromLoginPage(nome, False)
            End If
        Else
        End If
        objConn.Close()
    End Sub
End Class
[/CODE]