Visual Basic - Problema con RecordCount

Hola

Intento mostrar en un msgbox el recuento de una tabla y siempre me da 1.Pongo esto.

Set basededatos = OpenDataBase(RutaBaseDeDatos,False,False,";pwd=pass")
set Tabla = basededatos.OpenRecordset ("Select*from campo where Id = '1'")
msgbox Tabla.RecordCount

Siempre que hago algun tipo de selección en la tabla el recuento me da uno.Deesta menera funciona , pero necesito hacer una selección.
set Tabla = basededatos.OpenRecordset ("campo")

¿Cómo lo puedo solucionar?

hacé un rs.movelast antes de hacer el recordcount, algunas versiones de dao tenían ese problema.

Afogutu.

No entiendo muy bien tu pregunta, pero tambien puedes usar:

set Tabla=basededatos.OpenRecorset("SELECT Count(*) AS num FROM tabla WHERE Id='1'")
msgbox Tabla!num