Recordset.Source

Option Compare Database
Option Explicit

Public Sub GetSource()
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim fld As ADODB.Field
    Dim strSQL As String

    On Error GoTo Err_Control
    ' текущее соединение:
    Set cnn = CurrentProject.Connection
    Set rst = New ADODB.Recordset

    ' строка соединения (запрос):
    strSQL = "SELECT Element, Dimen, Thickness, Lenth, Weith, [Min Length], [Max Length] from LindabProducts"
    '  если надо выбрать все столбцы ставишь звездочку:
    '///strSQL = "SELECT * FROM LindabProducts"
    ' открываем Recordset на основе этого запроса
    rst.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly
    ' считываем данные
    Do While Not rst.EOF
        For Each fld In rst.Fields
            Debug.Print fld.Name
            Debug.Print fld.Value
        Next fld
        rst.MoveNext
    Loop

    ' выводим строку Source в окно Immediate:

    Debug.Print "=======================" & vbCr & _
                "Record Source: " & rst.Source
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub

Exit_Here:

    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub

Err_Control:
    MsgBox Err.Description
    Resume Exit_Here

End Sub