Cita:
Iniciado por Kruzado 
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\tubase.mdb;Persist Security Info=False;Jet OLEDB:Database Password=tucontraseña"
Después de batallar un poco y gracias a tu ejemplo lo resolví corrigiendo el error de la linea que marco en la respuesta anterior quedando de la siguiente manera en mi modulo bass:
Código:
Cn.Open "Provider= Microsoft.Jet.OLEDB.4.0;" _
& "Data source=" & App.Path _
& "\MIBASE.mdb;Persist security info = False;Jet OLEDB:DATABASE Password=miclave"
Solo cambie lo que esta en azul.
Saludos..