Cita:
Iniciado por gasafonso 
Si igual yo trabajo con DATA
pero gracias
Sólo le tienes que aplicar al control Data, la consulta que te puso
Kruzado sql = "select * from mascotas where codcliente=" & tucodigo & " order by codmascota desc"
Set rs = db.OpenRecordset(sql)
Set Data1.Recordset = rs 