Merhaba arkadaşlar,
alpeki hocanın verdiği siteden aşağıdaki kodu buldum,
bu kod başka bir access'i seçip oradan istedin tabloyu bağlamaya yarıyor.

If Val(Application.Version) <= 11 Then
DoCmd.RunCommand 102 ' the value of acCmdLinkTables
Else
DoCmd.RunCommand 544 ' the value of acCmdImportAttachTables
End If
ve bu kodda aynı işlemi yapıyor...
If Val(Application.Version) <= 11 Then
DoCmd.RunCommand acCmdLinkTables
Else
DoCmd.RunCommand acCmdImportAttachAccess
End If