Set miRecordSet = Conexion.Execute("SELECT * FROM tabla WHERE MONTH(fecha) = " & TEXT1 & " AND YEAR(fecha)=" & TEXT2)