Problema muy extraño con base de datos Access

Wintermute
20 de Mayo del 2004
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.

bjavier
20 de Mayo del 2004
prueba la consulta de esta forma
consulta = "SELECT count(*) as num FROM Login"
contar=rs!num
msgbox contar

lo acomodas a tu codigo si necesitas algo mas escribe, tengo full codigos fuentes