函  数:

Public Function PrintOutConnect()
    Dim dbs As Object: Set dbs = CurrentDb
    
    Dim tdf As Object
    For Each tdf In dbs.TableDefs
        If tdf.Name Like "tbl*" Then
            Debug.Print tdf.Name & ":" & tdf.Connect
        End If
    Next
End Function