Visual Basic - editar registrso con ADO

tengo un problema el cual consiste en la edicion de los registros de una tabla de acces.

Tengo una tabla donde almaceno una matricula, un nombre y una hora de entrada, una vez guardados estos registros. al llegar la hora de salida necesito localizar el registro de la tabla por el numero de matricula y la hrs de entrada, eso es facil, el problema biene cuando tengo que editar el campo "hsalida" que esta en blanco. si alguien me puede ayudar lo agradesco.
con el Data es facil, pero yo lo quiero hacer con el Adodc.

el codigo del Data es

Data1.recordset.edit
Data1.recordset.fields("hsalida")=label1.caption
Data1.recirdset.update
**********************************************************************************************

este codigo estoy utilizando para tratar de hacerlo con el adodc:

Dim B As Integer
With Adodc1.Recordset
.MoveFirst
While Not .EOF
If Text1.Text = .Fields("matricula") And Combo1.Text = .Fields("semestre") Then
.Fields("hsalida") = Label2.Caption
.Update
Exit Sub
Else
B = 1
End If
.MoveNext
Wend
End With

If B = 1 Then
MsgBox "NO HAS INICIADO SESION"
End If




con el Adodc como lo podria hacer??. si me pueden ayudar se os agradecere mucho.

Saludos y gracias por el tiempo dedicado.

pero no decis que lo estas hasiendo con ADO, no lo entiendo, es que os da algun error?
y si es asi, que tipo de error y donde?