Visual Basic - Error Con Data Control. Urgente!!!!!!!

Hola.
Tengo con control data que hace referencia a 1 tabla de una Bd. con 1 registro. Al eliminarlo no hay ningun problema (quedando vacio). El problema aparece cuando posterior a esta eliminacion del registro único trato de cargar en el Recordsource del Control Data la tabla anterior y me sale un error de VB5 y me tira para afuera. Ni siquiera es un error de código, sino que se cierra VB5. El codigo es es siguiente:

(Ojo:En Data1 ya se posicionó sobre el registro activo, listo para eliminarlo)
'al eliminarlo
Data1.Recordset.Delete
Data1.Recordset.MoveNext

' luego en un procedimiento para verificar si existen datos dentro de la tabla. "areas" es el nombre de la tabla

Data1.RecordSource = "Select * from areas"
Data1.Refresh

Y al momento de hacer Refresh se cae y cierra VB5

Este error no aparece cuando al haber 2 o más registros se elimina 1 quedando por lo menos 1 en la tabla. Sólo aparece cuando queda 1 registro, se elimina 1 y la tabla queda vacia.

Espero me ayuden

Gracias

Pues lo que yo haria es:

Data1.RecordSource = "Select * from areas"
if Data1.recordset.eof=false then
Data1.Refresh
end if