El .exe no almacena ningun tipo de información del equipo donde fue creado.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Option Explicit
Public Conex As String 'Almacenará datos de conexión
Public RS As ADODB.Recordset 'Recordset
Private Sub Form_Load()
Set RS = New ADODB.Recordset
'Cadena de conexión
Conex = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\BD.mdb;"
'Abrimos la tabla "Usuario_Sistema" con el recordset
RS.Open "Usuario_Sistema", Conex
Combo1.Clear
While Not RS.EOF
'Añadimos el Id y el nombre de usuario al combo1
Combo1.AddItem RS!Id_Usuario_Sistema & " - " & RS!Nombre_Usuario0
RS.MoveNext
Wend
RS.Close
End Sub