tambien puedes tratar con uno que se llama Setup Factory, la verdad muy sencillo y trae varias plantillas para el diseño, asi como las pantallas que quieras usar para tu archivo de instalacion.
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ú
Dim dbInventario As Database
Dim rsUsuarios As Recordset
Set dbInventario = OpenDatabase(App.Path & "\system.dll") 'esta es la BD con la extensión cambiada
Set rsUsuarios = dbInventario.OpenRecordset("Usuarios", dbOpenDynaset) 'abrir las tablas
Set rsUsuarios = dbInventario.OpenRecordset _
("Select * FROM Usuarios " _
& "WHERE Usuario = '" & Text1.Text & "'")
If Not rsUsuarios.EOF Then
If rsUsuarios.Fields("Password") = txtPassword.Text Then
Session = rsUsuarios.Fields("Tipo")
Nombre = rsUsuarios.Fields("Nombre")
If Session = "Administrador" Then
Form1.Show
Unload Me
Else
Form8.Show
Unload Me
End If
Else
MsgBox "El Password es invalido, vuelva a intentarlo!", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
Else
MsgBox "El Nombre de usuario es invalido, vuelva a intentarlo!", , "Login"
Text1.SetFocus
SendKeys "{Home}+{End}"
End If