Querydef: fra DAO til ADO

Jeg en større databasse, som skal løftes op fra 97 til Xp ( og videre til M$ SQL), så det er vel på tide at sige farveller til DAO og kaste sig over ADO. Det skal nok give nogen hovedpine; I ved den der gemmer til natten...

Jeg har følgende kode, som henter SQL teksten i min queries og sammen med anden dynamisk SQl danner noget ala 'slec * ... in ( select * ..)

Hvordan foår jeg fat i sql teksten under ADO. Skal jeg hve fat i Command under ADOX. Jeg skal gemme querien. Er der ikke noget med ADOX, at man ikke kan se de gemte queries og at bassen vokser uhemmet ???
Er der noget om, at noget har bedst af at blive i DAO ??? Henrik

'--- Dette funker i Acc 97
Function ListQryValues(strTable As String, Item As Integer)
    Dim db As Database
    Dim Qry As QueryDef
       
    Set db = CurrentDb()
    Set Qry = db.QueryDefs(strTable)
    ListQryValues = Qry.Properties(Item).Value
 
    db.close

End Function

Function GetQryNavn(qrynavn As String)
' henter Qry navn
Dim dumme As String
    dumme = ListQryValues(qrynavn, 4)
    GetQryNavn = Left$(dumme, Len(dumme) - 3)
End Function