ник: snipe
как-то так
Public function UnionColumnTable() as String
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT Запрос1.а6 FROM Запрос1", CurrentProject.Connection, adOpenStatic, adLockReadOnly
UnionColumnTable = Replace(rst.GetString, Chr(13), ", ")
Set rst=nothing
end function