Usa el método Seek para desplazarse a un registro específico de la tabla
'*********************************************************
Dim OldDb As Database, OldTbl As Recordset
Dim OldWs As WorkSpace
Set OldWs = DBEngine.Workspaces(0)
Set OldDb = OldWs.OpenDatabase("C:\LAPERA.MDB")
Set OldTbl = OldDb.OpenRecordset("Clientes",dbOpenTable)
'************************************
'Establece la propiedad índice para la tabla
'************************************
OldTbl.Index = "Nombre"
'******************************************
'Ejecuta Seek con la condición requerida
'******************************************
OldTbl.Seek ">", "Vicente"
'*********************************************************
'Muestra la información o el mensaje "No se encuentra"
'*********************************************************
If OldTbl.NoMatch Then
MsgBox "No se encuentra"
Else
MsgBox OldTbl("Apellidos") & ", " & OldTbl("Nombre")
End If
'*********************************************************
'El método Seek busca el primer registro que coincida con Apellidos y Nombre indicados
'*********************************************************
OldTbl.Seek ">=", "Aguilar Bueno", "Vicente"