primera vez que escribo. (Debo trabajar con vb.net y mysql) Tengo que hacer un proyecto y necesito que cuando el usuario se loguea, mantenga los datos en el siguiente form. Ejemplo, me logueo con un usuario desde el form login, los datos son correctos y me deja entrar a otro form que sería el principal. El problema que tengo es que, al loguearse me muestra los datos que traigo desde la bd en un msg box pero luego en el siguiente form no los mantiene. Había hecho un modulo y estaba todo en publico, lo cual me funcionaba. Module ModuloUsuarios Public documento As Integer Public idusuario As Integer Public nombre As String Public apellido As String Public nivelusuario As String End Module Pero me dijeron que debía hacerlo por clase. Lo que tengo hasta ahora es esto: Public Class sesionUsuario 'Documento del usuario Private Documento_Usuario As Integer Public Property obtenerDocumento() As Integer Get Return Documento_Usuario End Get Set(ByVal value As Integer) Documento_Usuario = value End Set End Property 'Tipo de usuario (Nivel identificador) Private id_Usuario As Integer Public Property obtenerIdUsuario() As Integer Get Return id_Usuario End Get Set(ByVal value As Integer) id_Usuario = value End Set End Property 'Nombre de Usuario Private Nombre_Usuario As String Public Property obtenerNombre() As String Get Return Nombre_Usuario End Get Set(ByVal value As String) Nombre_Usuario = value End Set End Property 'Apellido de Usuario Private Apellido_Usuario As String Public Property obtenerApellido() As String Get Return Apellido_Usuario End Get Set(ByVal value As String) Apellido_Usuario = value End Set End Property 'Estado del usuario (Si se encuentra activo o Inactivo) Private Estado_Usuario As String Public Property obtenerEstado() As String Get Return Estado_Usuario End Get Set(ByVal value As String) Estado_Usuario = value End Set End Property 'Email de Usuario Private Email_Usuario As String Public Property obtenerEmail() As String Get Return Email_Usuario End Get Set(ByVal value As String) Email_Usuario = value End Set End Property End Class Imports MySql.Data.MySqlClient Public Class frmLogin Private DatosUsuario As New sesionUsuario Private Sub btnIngresar_Click(sender As Object, e As EventArgs) Handles btnIngresar.Click ConexionSql.Open() Dim consultaUsuario As String = "select * from usuarios where documento='" & txtDocumento.Text & "' and contrasena ='" & txtContrasena.Text & "';" Dim existeUsuario As New MySqlCommand(consultaUsuario, ConexionSql) Dim adapter = New MySqlDataAdapter(existeUsuario) Dim dt = New DataTable Dim leer As MySqlDataReader leer = existeUsuario.ExecuteReader If leer.HasRows Then While leer.Read() DatosUsuario.obtenerDocumento = leer.GetInt32(0) DatosUsuario.obtenerIdUsuario = leer.GetInt32(2) DatosUsuario.obtenerNombre = leer.GetString(3) DatosUsuario.obtenerApellido = leer.GetString(4) DatosUsuario.obtenerEmail = leer.GetString(9) DatosUsuario.obtenerEstado = leer.GetString(11) End While leer.Dispose() If DatosUsuario.obtenerIdUsuario < 5 Then txtDocumento.Text = "" txtContrasena.Text = "" MsgBox("Bienvenido/a " + DatosUsuario.obtenerNombre + " " + DatosUsuario.obtenerApellido) frmPrincipal.Show() Me.Hide() Else DatosUsuario.obtenerIdUsuario = 5 txtDocumento.Text = "" txtContrasena.Text = "" MsgBox("Bienvenido/a " + DatosUsuario.obtenerNombre + " " + DatosUsuario.obtenerApellido) frmClientes.Show() Me.Hide() End If Else MsgBox("Documento y/o Contraseña Incorrectos") txtDocumento.Text = "" txtContrasena.Text = "" txtDocumento.Focus() End If ConexionSql.Close() End Sub End Class Necesito ayuda. La verdad es que no se si lo estoy haciendo bien o no. Ya me queda poco tiempo y bueh, entra la desesperación :V Desde ya muchas gracias.