Visual Basic - QueryDefs en ADO

La pregunta es como hacer las QueryDefs que se hacian en DAO ahora con ADO. El resto de la aplicación la tengo ya en ADO y me funciona correctamente.

Adjunto un evento de una consulta hecho en DAO.

Private Sub Command1_Click()
Set consulta = cn.QueryDefs("entradas")
consulta.SQL = "SELECT * FROM Facturas INNER JOIN (Articulos INNER JOIN DetallesFacturas ON Articulos.referencia_art = DetallesFacturas.ref_artic_factu) ON Facturas.idfactura = DetallesFacturas.idfactura where month(facturas.fecha_factu)=" & a & " and year(facturas.fecha_factu)=" & b
CrystalReport1.ReportFileName= App.Path & "\Infor.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
End Sub

Un saludo y gracias.

con ado no hay querydef sino command me explico
Dim Cmd As ADODB.Command
Set Cmd = New ADODB.Command
Cmd.CommandType = adCmdText
Cmd.ActiveConnection = tuconexion
Cmd.CommandText = tuconsulta
y por ultimo para ejecutarlo
Cmd.Execute