Hola que tal mi gente forera, les traigo un problemita que me lleva un trio de madrugadas sin que lo pueda resolver , es mir primer programa y me siento varado: 
 
Basicamente cuento con un formulario de login.(login.vb)
Del cual solicita usuario y contraseña
Con los datos de conexion de visual basic 2010 , realizo una consulta mediante
un procedure. el cual si coincide con los datos de usuario y contraseña
permite pasar al siguiente formulario
el problema con el que me encontre es cuando deseaba relacionar otros formularios con el id_usuario
Asi que regrese al formulario login, y realize otra consulta con otro procedimiento almacenado que dice:
select idusuario from usuario where usuario=@usuario
 
y en mi formulario tengo:
 
 
Imports System.Data.SqlClient
Imports System.Data
 
 
 
Public Class login
 
 
    Public usuariosesionado As String
    Public idsesionado As Integer
 
    Public Sub retornoid()
 
        Dim comandoid As SqlCommand
        'Dim lectorid As SqlDataReader
        Try
            'primero abrimos la connection de la clase conexion
            connection.Open()
            'esto declara el comando para traer el idusuario utilizando el procedure userid
            comandoid = New SqlCommand("userid", connection)
            comandoid.CommandType = 4
            'aqui se especifica los parametros tomados del texto en los texbox tbLogin y tbPassword, y se correlacionan con las
            'variables del sql procedure
            With comandoid.Parameters
                .AddWithValue("@usuario", tbLogin.Text.ToString)
            End With
            usuariosesionado = comandoid.ExecuteScalar()
 
 
 
 
        Catch ex As Exception
 
        End Try
        connection.Close()
    End Sub
 
pero ,, cuando quiero usar la variable publica :
Public idsesionado As Integer
que segun mi idea , tendra el valor idusuario dato por:
usuariosesionado = comandoid.ExecuteScalar()
 
desde mi formulario principal:
 
    Private Sub principal_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Label10.Text = login.idsesionado
 
 
 
 
 
    End Sub
 
no obtengo el valor correspondiente.
 
ojala pudieran apoyarme...
 
agradezco de antemano su tiempo por haberme leido. 
  
 

