Código:
Dim cadenaConexion As String = ConfigurationManager.ConnectionStrings("MiConexion").ConnectionString
Dim cnn = New SqlConnection(cadenaConexion)
cnn.Open()
Dim sentencia3 As New Data.SqlClient.SqlCommand("SELECT usuario FROM usuarios_totales WHERE usuarios_totales.usuario = tbusuario AND usuarios_totales.clave = tbclave", cnn)
Session("usuario") = sentencia3.ExecuteReader



