bue es un poco de iamginacion je... supongamos tenes 2 forms, el de login y el susesor al de login.
en el de login tienes 2 text (txt_usuario, txt_pass) y un boton de Aceptacion y en el formulario susesor tienes un label llamado datos_usuario
entonces haces una consulta a la tabla de usuarios (en el boton aceptar del fom de logeo)
Código:
Private Sub login_Click()
If txt_usuario.text = "" Then
MsgBox "Debe ingresar su nombre de usuario", vbInformation, "Usuario"
txt_usuario.SetFocus
Exit Sub
End If
If txt_pass.text = "" Then
MsgBox "Debe ingresar su contraseña de usuario", vbInformation, "Usuario"
txt_pass.SetFocus
Exit Sub
End If
Call conexion
Set rs = New ADODB.Recordset
sql_usu = "select id_usuario, id_permiso, activo, usuario, pass, nombre_apellido from usuarios where usuario = '" & Trim(txt_usuario.text) & "' and pass = '" & Trim(txt_pass.text) & "'"
rs.Open sql_usu, conectar
If Not rs.EOF Then
If rs!activo = 1 Then
forSusesor.datos_usuario.Caption = "Usuario: [" & rs!usuario & ": " & rs!id_permiso & "] " & rs!nombre_apellido
Unload inicio_login
forSusesor.Show
End If
Else
MsgBox "La contraseña o el nombre de usuario no es válido", vbInformation, "Usuario"
Exit Sub
End If
... bue espero sirva la idea.
salu2