Visual Basic - Consulta vb6.0 a access via Dao

Hola amigos

Estoy accediendo via DAO a un base datos de access . Lo cierto es que con el siguiente codigo puedo abrir un consulta
con parametros ya armada en access

Dim DATA As Database
Dim REG As Recordset
Dim CONS As QueryDef
Dim MES As Parameter
Dim ANO As Parameter

Set CONS = DATA.QueryDefs!CONSULTA1


Set MES = CONS.Parameters![ DIA]
Set ANO = CONS.Parameters![ MES]

Como puedo hacer lo mismo pero accediendo a la consulta via ADO?
un abrazo Gracias.

Dim Conn as new ADODB.Connection
Dim Rst as new ADODB.RecordSet
dim CNS as String
Dim Mes as new ADODB.Parameters
Dim ANO as new ADODB.Parameters

Gracias por la ayuda