Dim intColCount As Integer
    Dim intControlCount As Integer
    Dim i As Integer
    Dim strName As String
    Dim strSql As String
    ' On Error Resume Next
    '

strSql = "TRANSFORM Sum([uCt]/[MadeQty]*[QtySet]) AS Expr1 _
SELECT tblEnvelopes.ID FROM (tblStyle INNER JOIN tblEnvelopes ON tblStyle.ID = tblEnvelopes.IDStyle) _
INNER JOIN tblStones ON tblStyle.ID = tblStones.IDStyle GROUP BY tblStyle.ID, tblEnvelopes.ID, tblStyle.OriginalENV, tblEnvelopes.QtySet _
PIVOT tblStones.StonesName; "
    
    
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    
     ' Вот здесь и начинается сюрприз. Но если подсовываешь  me.Recordsource
   ' и соответственно  на форме в качестве источника указываешь аналогичный запрос - все проходит нормально.

     rst.Open Source:=strSql, ActiveConnection:=CurrentProject.Connection, Options:=adCmdTable
        
    intColCount = rst.Fields.Count
    intControlCount = Me.Detail.Controls.Count
    
    If intControlCount < intColCount Then
        intColCount = intControlCount
    End If
    .
.
.
    rst.Close