automatisk angivelse af kolonne navn

Jeg har et lidt tricky spørgsmål:
I forbindelse med udhentning af data fra database (SQL), ville jeg gerne have mulighed for at få navnet på resultatkolonner tilbage sammen med dataene og anvende dem til udskriftsstyring. Som det er nu, skal jeg selv angive hvilke(n) kolonne(r) jeg gerne vil se matchende værdier fra:

RStr = RStr & CStr(oRs("Vkt_nr").Value) & ", " &_
CStr(oRs("navn").Value)& Endline & Endline
Her har jeg angivet Vkt_nr og navn som værdier for kolonnenavne.
Søgekriteriet angives via variabel værdi som skelner mellem om det er tekst eller numerisk værdi.
Er der nogen gode ideer til hvordan jeg bygger det?
JEg sidder og prøver om det kunne lade sig gøre med en modereret version af enten dictionary eller linkede sider, men mangler lige lidt ideer.