Cita:
Iniciado por ernestoelunico 
ok ya hice la macro y me funciona tube que aprender hacerlo
ahora tengo un problema es que mi bd tiene contraseña no se como abrirla usando u codigo
saludos
Para abrir la BD con contraseña:
.OpenCurrentDatabase (App.Path & "\TuBasedeDatos.mdb"), False, "tucontraseña" 