Foros del web, para los que viven de bits

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

Le tienes que asignar un nombre a la clausula Max

consulta = "select max(fecha) As fecha, horometro...

Un saludo

Gracias por la ayuda, yo matandome el coco y la solucion estaba frente a mis ojos jajaja.