Sub deneme()
        Using conn As New OleDbConnection(string)
            conn.Open()
            Dim dt As DataTable = conn.GetSchema("Tables", New String() {Nothing, Nothing, Nothing, "SYSTEM TABLE"})
            For Each dr As DataRow In dt.Rows
                MsgBox(dr("TABLE_NAME").ToString) ' 
            Next
        End Using
    End Sub

Sub baglanti(tableName As String)
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim yol As String
    
    Set db = CurrentDb
    
    For Each tdf In db.TableDefs
        If tdf.Name = tableName And tdf.Attributes And dbAttachedTable Then
            yol = tdf.Connect
            MsgBox "Bağlı tablo konumu: " & yol
            Exit Sub
        End If
    Next tdf
    
    MsgBox "Yol bulunamadı: " & tableName
End Sub

Private Sub Button_Click()
 
baglanti "TABLO_ADINIZI_YAZINIZ"
End Sub