Visual Basic - BUSCAR REGISTROS CON DOBLE CONDICION

holas a todos..
En una tabla de registros debo capturar la hora de ingreso y salida del personal
cada persona tiene un codigo, que debe ingresar, luego se debe buscar el reg. sugun el codigo
al encontrar debe verificar si su campo de "hoingre" q es la hora de ingreso esta vacia
debe capturar la hora del sistema.
esto debe hacer en todos los registros, cada vez que se registre el perosanal, el codigo es
mas o menos así:

'primero, se hace un clic en el Boton Profesores, luego pasa a la caja de texto, Text1
'donde se Ingresa el CODIGO, al termino de ello, se pressiona ENTER, es aqui donde
'se debe ejecutar este codigo:
'primero debe buscar el CODIGO ingresado, luego debe verificar si el campo "hoingre", que es hora de ingreso
'esta vacia o no, si esta vacia debe capturar la hora del sistema, que esta en la var HoraI

'he intentado de la forma que me han sugerido pero no resulta,.. porfa una manito, ayudenme.
'de antemano las gracias.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

Dim HoraI
HoraI = Time

Dim CodBusca, Vacio As String
Dim modi As String

CodBusca = Trim(Text1)
If CodBusca = Space(8) Then
MsgBox "Escriba su Código"
Text1.SetFocus
End If
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset("codigo") = CodBusca Then
Do While Not Data1.Recordset.EOF
If Data1.Recordset("hoingre") = "" Then
Data1.Recordset.Edit
Data1.Recordset("hoingre") = HoraI
Data1.Recordset.Update
Else
MsgBox "Hora Ingreso Ocupado"
Text1 = ""
Exit Do
Command2.SetFocus
End If
Data1.Recordset.MoveNext
Loop
Else
Data1.Recordset.MoveNext
End If
Exit Do
Loop
End If
End Sub

Yo diceñe un sistema q asi algo asi !! mi correo es [email protected]
Si quieres lo copias y nos ponemos en contacto