Visual Basic - Access, ayuda / help

Tengo el siguiente codigo:

Data1.RecordSource = "Select * from clientes where codigocliente<>'""'"
Data1.Refresh

a = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst

Si pongo una pausa en a=data1.... a tiene el valor de uno, pero si espero unos 15 segundos mas, se cambia al valor que en teoria me tiene que encontrar.... toy desesperado por ke tengo ke hacer una aplicacion y no me sale...... FAlta algun componente ????

Gracias a todos..........

No se si es el metodo correcto pero yo lo utilizaba así:

Data1.RecordSource = "Select * from clientes where codigocliente<>'""'"
Data1.Refresh
data1.recordset.movelast
a = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst

Y me da el total de registros.
Y por SQL:

Data1.RecordSource = "SELECT Count(Clientes.Codigocliente) AS CuentaDeNumero
FROM Clientes where codigocliente<>'""'" ;"
Data1.Refresh

debug.print data1.recordset.fields(0)

PErfesto :-)