Set AccApp = CreateObject ("Access.Application") AccApp.OpenCurrentDatabase strFile, False, "12345"
http://www.sql.ru/forum/1158415/otkrytie-mdb-fayla-s-ustanovlennym-parolem-v-access-runtime-vbs