Sub denememe()
 
        Dim dbE As New DAO.DBEngine
        Dim db As DAO.Database
        Dim strNewPath As String = "c:\Database1.Accdb"
 
        db = dbE.OpenDatabase("c:\Database2.accDB")
 
        For Each td As DAO.TableDef In db.TableDefs
            If Len(td.Connect) < 0 Then
                'buraya  hangi kodları  yazabilirm ki
                '    Database1.Accdb Veritabanındaki tablolar
                '   Database2.Accdb Veritabanındaki tablolar ile Link bağlantı kursun
 
 
 
                ' If Strings.Left(td.Connect, 9) = ";DATABASE" Then
                'td.Connect = ";DATABASE=" & strNewPath
                'td.RefreshLink()
                'End If
            End If
        Next
        db.Close()
    End Sub

Sub Bagla()
    Dim Hedef As Object, Kaynak As dao.Database
    Dim KaynakDosya, HedefDosya As String
    KaynakDosya = CurrentProject.Path & "\Database2.Accdb"
    HedefDosya = CurrentProject.Path & "\Database1.Accdb"
    Set Kaynak = dao.DBEngine.OpenDatabase(KaynakDosya)
    Set Hedef = CreateObject("Access.Application")
    Hedef.OpenCurrentDatabase HedefDosya
     For Each Tablolar In Kaynak.TableDefs
        If Mid(Tablolar.Name, 1, 4) <> "MSys" Then
            Hedef.DoCmd.TransferDatabase acLink, "Microsoft Access", KaynakDosya, acTable, Tablolar.Name, Tablolar.Name, False
        End If
     Next Tablolar
    Hedef.CloseCurrentDatabase: Hedef.Quit:: Set Hedef = Nothing
    Kaynak.Close: Set Kaynak = Nothing
End Sub

Hedef.OpenCurrentDatabase HedefDosya