Дело в том, что TableDefs.Connect не прописывает пароль и логин. Необходимо где нибудь, например в модуле написать подпрограммку типа.
Set db = CurrentDb
Set tdf = db.TableDefs("MyLink")
' вместо Vuid и Vpwd можно прямо и писать пароль и логин
tdf.Connect = "ODBC;DSN=MyDSN;UID=" & Vuid & ";PWD=" & Vpwd "
tdf.RefreshLink
db.Close
Тогда пароль не будет запрашиваться.
Если не желательно сохранять в базе пароль с логином, то например при открытии формы обновить Link с пароль и логином, а по закрытии убрать и обновить Link.