Visual Basic - Ayuda con adodc!

Hola:

Apenas estoy aprendiendo a usar adodc y ya añado registros, pero quiero editar algunos datos de la tabla y la verdad no se como, si me pudieran ayudar se los agradecería mucho.

este es el código que yo el puse pero funciona:

Private Sub Command1_Click()
With Adodc1
inserta = "Numord like '*" & Text1.Text & "*'"
.Recordset.Find inserta
.Recordset.EditMode <--- aqui es donde tengo duda
.Recordset!Fechas = Text3.Text
.Recordset!Ht = Text5.Text
.Recordset!Hd = Text6.Text
.Recordset!pro = Text7.Text
.Recordset!Co = Text4.Text
.Recordset!Nf = Text8.Text
.Recordset!Nr = Text9.Text
.Recordset.Update
End With
End Sub

Gracias de antemano.

Primeramente debes comprobar que el find encontró registros, ya que si no lo haces se generará un error.

LA LINEA DONDE DICES QUE TIENES DUDAS SOBRA, EN ADO NO HAY QUE INVOCAR EL METODO EDIT.

Te quedaría así

Private Sub Command1_Click()
With Adodc1
inserta = "Numord like '*" & Text1.Text & "*'"

.Recordset.Find inserta

IF .RECORDSET.EOF THEN EXIT SUB

.Recordset!Fechas = Text3.Text
.Recordset!Ht = Text5.Text
.Recordset!Hd = Text6.Text
.Recordset!pro = Text7.Text
.Recordset!Co = Text4.Text
.Recordset!Nf = Text8.Text
.Recordset!Nr = Text9.Text
.Recordset.Update
End With
End Sub