error al guardar una fecha de la bd en un texbox

[clavijo83]

en este codigo saco un valor y la añado aun textbox, pero cuando quiero agregar la fecha me manda el siguiente error "no se encontro el elemento en la coleccion que corresponde" en la parte que esta en negrilla, no se porque sale ese error que debo hacer para que agregue la fecha en el otro texbox

Dim consulta As String
Set registro = New ADODB.Recordset
consulta = "select max(fecha), horometro_final from detalle_equipos_consumo as de, reporte as r " & _
"where r.codigo_equipo='" & Text29 & "' and r.codigo_equipo=de.codigo_equipo group by fecha"

Set registro = conex.Execute(consulta)
If registro.EOF Then
MsgBox "Horometro en cero, O no se ha ingresado"

Else
Text6 = registro!horometro_final
Text7.Text = registro!fecha

End If
End Sub


gracias por la ayuda que me puedan dar