Yeni bir notepad açıp aşağıdakileri yapıştırıp, gerekli değişiklikleri yapın.
Ekrandaki notepad i uzantısı ".dsn" olarak kaydedin.

Dikkat etmeniz gereken yer de, win oturum hesabıyla bağlanılmayacaksa en alt satırdaki "Trusted_Connection=Yes" kısmını silin.

Access dosyanıza da dış bağlantı olarak bu .dsn uzantılı dosyayı göstereceksiniz o kadar...

Kolay gelsin.

Dim VrTbx As Database, Konum, Psw, Dosya, Yer As String

Sub Baglatma()
Yer = "\\SUNUCU\Kontak.mdb"
Dosya = "VeriTabani": Psw = "parola"
Set VrTbx = Application.DBEngine.OpenDatabase(Yer, False, False, ";PWD=" & Psw & "")
DoCmd.TransferDatabase acLink, "Microsoft Access", Yer, acTable, Dosya, Dosya, False
End sub

Sunucudaki veritabani baslangicinda parolali ise Psw degiskenine parolayi yazin, degil ise bos birakin

yardımlarınız için teşekkürler...