Visual Basic - Urgente - ¿Error en base de datos?

Hola a todos.

Hace algún tiempo realicé una aplicación a un cliente y ahora me aparece un problema que no puedo resolver.

La base de datos access 2000 tiene 769 socios, pero al listar todos los recibos SOLO aparecen 766 (sí incluye el primero y el último)

Aquí selecciono los socios
rsSocio.Open "Select * From Socio Where " _
& " Apellidos >= '" & primeraPalabra1 & "' And " _
& " Nombre >= '" & Ultimapalabra1 & "' Order by Apellidos, nombre", cn

Hago los cambios
Do While Not ( rsSocio.EOF)

etc

Si es mayor que el último socio seleccionado sale del bucle
If ( rsSocio!Apellidos >= Trim$(primeraPalabra2) And _
rsSocio!Nombre > Trim$(Ultimapalabra2)) Then Exit do

Loop


En el modulo.bas

sBase = App.Path & "\Socios.mdb"
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & sBase


¿Donde está el error?, ¿Puede ser de la base de datos?.
El cliente lleva tiempo reclamándome solución, pero lo he probado todo y no hay forma ...

Un saludo y gracias.

Algún registro no está cumpliendo las condiciones del SELECT:

rsSocio.Open "Select * From Socio Where " _
& " Apellidos >= '" & primeraPalabra1 & "' And " _
& " Nombre >= '" & Ultimapalabra1 & "' Order by Apellidos, nombre", cn

Fijate de hacerlo sin el WHERE o sea solo "SELECT * FROM Socio" y revisa si aparecen en ese caso todos los registros. Si aparecen, tendrás que ver cuales son los registros que no están cumpliendo la condición.

Hola!
Luis Antonio

Orimeramente no se cuan tas tablas estas usando,tendria que ver tu BD.

Bueno, no se si tienes todo en una tabla, pero lo mejor seria que normalices la tabla para que asi no haya redundancia de informacion y si tienes 2 tablas relacionasdas mas facil no seria que hagas un "join" de esas dos tablas.

Espero que te sirva.

Saludos