Microsoft Access 掲示板

ご回答ありがとうございます。基本的なやり方は間違えていないようです。
差し支えなければ、Hatena様の最後のコードについて説明いただけないでしょうか。
複数のテーブルをこのif~nextでリンクできるのでしょうか

Private Sub Form_Open(Cancel As Integer)
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef

    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs

        If tdf.Connect Like "*データーベース1.accdb*" Then
            If tdf.Connect Like "*PWD=1234*" Then 
                Exit For
            Else
                tdf.Connect = _
                "MS Access;PWD=1234;DATABASE=C:\test\データベース1.accdb"
                tdf.RefreshLink
            End If
        End If
    Next tdf

    dbs.Close: Set dbs = Nothing

End Sub