Podrías hacerlo directamente en la consulta SELECT
Cita: "Select * from cursos where dni='" & Me.txtDni.Text & "' order by ano desc"
Podrías hacerlo así, no he probado este código
Cita: "Select *, If(horas = 3, 0, horas) as Horas, If(Ano = 4, 0, Ano) as Ano from cursos where dni='" & Me.txtDni.Text & "' order by ano desc"