Salu2.
Si la base de datos es acces yo pongo asi:
Set AbreBasePrin = OpenDatabase(PathDeBase, True, False, ";pwd=PassDb")
PathDeBase= path a la base de datos y el nombre claro
True = apertura modo exclusivo, True o False
False= Solo lectura, True o False
;pwd=PassDb= tipo de db ; y la pass de la DB despues de 'pwd='. Yo uso DAO y sin poner nada delante del ; me funciona.
Con el control DATA creo que era:
Data1.Connect = ";pwd=PassDb"
espero que os sirva