¿Por Qué no refresca los registros de la Base de Datos?

Tengo una Base de datos en Acces trabajada con Control Data (Vb 6.0), hay un campo llamado estado en el cual se le puede agregar dos clases de registros: Realizado y No realizado. Necesito contar cuantos hay de cada uno, esta acción me la realiza pero sólo cada dos o tres registros; si detengo el proyecto y lo vuelvo a correr actualiza la informacion pero no quiero que sea asi.

Éste es el código que uso: With Data1
Dim sql
sql = "select Count(estado)as Nregistros from presupuesto where estado ='realizado'"
Data1.Refresh
.RecordSource = sql
.Refresh
Label10.Refresh
Label10.Caption = "Realizados:" & .Recordset.Fields("Nregistros")
End With