Visual Basic - CORREGIR CODIGO

¿QUIEN ME PUEDE CORREGIR ESTE CÓDIGO? TENGO UN TEXT7 DONDE INTRODUZCO LOS DATOS A BUSCAR Y AL PULSAR EN ENTER ME BUSCA EL PRIMER REGISTRO QUE ENCUENTRA. LA CUESTIO ES QUE TENGO OTRO BOTON (COMMAND14) CON EL QUE AL PULSARLE ME DEBERÍA BUSCAR EL SIGUIENTE REGISTRO QUE COINCIDA CON LA BÚSQUEDA, PERO NO LO HACE, PARECE EL MSGBOX DE QUE NO EXISTEN MAS DATOS ¿QUE PASA?
ESTOS SON LOS CÓDIGOS PARA BUSCAR SIGUIENTE REGISTRO.

Private Sub MostrarRegistro()
' Mostrar los datos del registro actual
' A este procedimiento hay que llamarlo cada vez que
' queramos mostrar los datos del registro actual.
On Error Resume Next
With rs
Text2() = .Fields("nombre")
End With
End Sub

' BUSCAR SIGUIENTE
Private Sub Buscar(Optional ByVal Siguiente As Boolean = False)
' Procedimiento para buscar el dato indicado (18/Ene/01)
' Si Siguiente = True, se busca a partir del registro activo
Dim nReg As Long
Dim sBookmark As String
Dim sBuscar As String
'
' Iniciamos la detección de errores
On Error Resume Next
' Buscar en el campo nombre
sBuscar = "nombre Like '" & Text7.Text & "'"
'
With rs
' Guardar la posición anterior, por si no se halla lo buscado...
sBookmark = .Bookmark
' Busca a partir del registro actual
.FindNext sBuscar

' Devolverá un error si no se halla lo buscado
' aunque no siempre es así...
If .NoMatch Then
Err.Clear
MsgBox "NO EXISTEN MAS DATOS QUE MOSTRAR.", vbInformation, "InfoSIGO."
' Posicionar el recordset en la posición guardada
.Bookmark = sBookmark
End If
' Mostrar los datos del registro actual
MostrarRegistro
End With
End Sub

GRACIAS.