Introducir valor de consulta en variable de sesion

[MiGoBi]

Hola, estoy intentando introducir un valor de una consulta en una variable de sesion. Les escribo para ver si estas 2 lineas de código son correctas o no ya que ahora mismo no lo puedo probar por problemas técnicos y no tengo suficientes conocimientos. Gracias desde ya:

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.ExecuteScalar

[Aquaventus]

Hola MiGoBi eso debería funcionar.