Sub Binden(strPath As String)
    
    Dim tblDef As TableDef
    Dim dbsNew As Database
    Set dbsNew = DBEngine.OpenDatabase(strPath)
    strPath = dbsNew.Name
    For Each tblDef In dbsNew.TableDefs
        If ((tblDef.Attributes AND dbSystemObject )= 0) AND ((tblDef.Attributes AND dbHiddenObject)= 0) Then 
            DoCmd.TransferDatabase acLink, "Microsoft Access", strPath, acTable, _
                tblDef.Name, tblDef.Name, False
       End If
    Next
    
End Sub