Programacion

Empecemos

Primero
Creamos un formulario y le agregamos los siguientes items: 3 labels (Titulo de su 
programa
, usuario y contraseña), 2 textbox (el primero para usuario le cambiamos el nombreque tiene por defecto de Text1 por txtusuario y el segundo para contraseña le cambiamos por txtcontraseña) y por ultimo 2 commandbutton (al primero de entrar le cambiamos el nombre de Command1 acmdEntrar y el segundo para Salir le cambiamos el nombre para cmdSalir). Y el formulario les quedará mas o menos así:



Segundo
Creamos un Modulo para que cuando el 
programa
 se ejecute porprimera vez y detecte que no tiene base de datos la cree junto con un usuario por defecto, que mas adelante podrá ser editado.


Dentro del módulo ponemos el siguiente código:

Global WK As WorkspaceGlobal dbint As DAO.Database
Global rs As DAO.Recordset
Public respuesta As String

Sub crear_base()
Set dbint = CreateDatabase(App.Path & "usuarios.mdb", dbLangSpanish, dbversion25)
SQL ="create table Usuarios (Usuario text(30) not null, Contrasenia text(20) not null, Codigo counter not null constraint Codigo primary key) ;" 'Se definen las tablas que tendrá la base de datosdbint.Execute SQL 'Se crea la tabla
Set dbint = OpenDatabase(App.Path & "usuarios.mdb"; ) 'Se guarda la base de datos en donde se encuentre el archivoejecutable de su 
programa
 con el nombre de usuarios.mdb,archivo editable en Access 2007
SQL = "select * 
from
 usuarios"
Set rs = dbint.OpenRecordset(SQL)
rs.AddNew 'Se crea el usuario por defecto con su contraseña por defecto
rs!Usuario = "user"rs!Contrasenia = "user"
rs.Update
rs.Close
dbint.Close
msj = "Se ha creado la base de datos: " & App.Path & "usuarios.mdb con éxito"
respuesta = MsgBox(msj, vbOKOnly + vbInformation, "LoginReporter"; )

End Sub

Tercero
Creamos otro formulario para mostrar cuando ingresemos para probar nuestro login

Cuarto
Pegamos este código en el formulario de login

Option Explicit
Dim cn As...