Visual Basic - Problema muy extraño con base de datos Access

Hola,

tengo un problema muy extraño. Tengo un programa en Visual Basic 6 para acceder a una base de datos Access que está en su mismo directorio. Para recoger, por ejemplo, el número de usuarios hago:

Dim midb As Database
Set midb = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\datos.mdb")
Dim consulta As String
consulta = "SELECT * FROM Login"
Dim rs As Recordset
Set rs = midb.OpenRecordset(consulta, dbOpenDynaset)
'rs.MoveLast
'rs.MoveFirst
MsgBox rs.RecordCount

En esa tabla hay 3 filas. Pues bien, el rs.RecordCount me dice que sólo hay 1. Pero si descomento el rs.MoveLast y el rs.MoveFirst, me devuelve las 3.

¿A alguien le ha pasado algo parecido? ¿Sabéis qué puede estar pasando? Hasta ahora siempre lo había usado así y siempre había funcionado correctamente.

Muchas gracias de antemano.

Probá coniendo
rs.CursorLocation = adUseClient justo antes de abrir el recordset

Gracias por tu respuesta:

¿Eso no es sólo para ADO? Yo estoy usando DAO y no me lo admite.

Un saludo...

Es normal que pase esto, sucede porque has de recorrer el recordset antes de poder contar los registros.

Hola, gracias por la respuesta.

¿Si se le hace una SELECT con distinct actúa distinto? Porque en otro código tengo:

Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\basedatos.mdb")
Dim consulta As String

consulta = "SELECT distinct(codigo) from informes"
Set rs = db.OpenRecordset(consulta, dbOpenDynaset)
Select Case rs.RecordCount
Case 0
...

Y me devuelve, en este caso, 2, que es precisamente el número de filas.

Un saludo...