Visual Basic para Aplicaciones - Buscar registros VB 2005

Hola,
Necesitaria que me ayudarais si alguien sabe la solución. Necesito bucar un registro y no se como hacerlo. En Visual Basic 6.0 lo hacia de la siguiente manera pero en la actualidad con Visual Basic 2005 no lo consigo.

Bisual Basic 6.0:

Dim buscando As String, Criterio As String
buscando = InputBox("Escribe el número de serie que quieres buscar")
If buscando = "" Then Exit Sub
Criterio = "reparación Like '" & buscando & "'"
CONTROREP.Recordset.MoveNext
If Not CONTROREP.Recordset.EOF Then
CONTROREP.Recordset.Find Criterio
End If
If CONTROREP.Recordset.EOF Then
CONTROREP.Recordset.MoveFirst

CONTROREP.Recordset.Find Criterio
If CONTROREP.Recordset.EOF Then
CONTROREP.Recordset.MoveLast
MsgBox ("No existe este número de reparación"), vbCritical
MsgBox ("Estas en la última reparación entrada"), vbInformation
End If
End If
End Sub