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
