Então vc pode usar o ADO mesmo.
Faça um loop assim:
FOR i=0 to Recordset.Fields.count -1
FOR J=0 TO Recordset.Fields.Properties.Count
DEBUG.PRINT Recordset.Fields(i).Properties(j).Name
NEXT
NEXT
Vai te listar na janela immediate do windows o nome dos propriedades e aí tendo o nome pode ter acesso aos valores das mesmas.
Qualquer dúvida postae
at+
