Visual Basic - TAMAÑO DE ARCHIVO

hola que tal, para ver si alguien me aydua, tengo un programa que trabaja bases de datos de access con sentencias SQL, pero me di cuenta de que cuando se borran registros de tablas o una misma tabla, el tamaño de la base de datos se queda como si estuvieran los datos, ¿ como puedo hacer para que cuando borre algo se ajuste al tamaño de los datos??,mediante SQL si es posible, urgente por favor ayudenme

Hola
Usa el metodo "CompactDatabase" el cual crea una copia compacta de la BD que le indiques. lo q hago es crear una copia compacta de mi BD y luego elimino la original y renombro la copia. (tambien puedes cambiar la version, la secuencia de ordenacion y la codificacion).

La BD original es fotos.mdb y la copia es fotos1.mdb.
"BDdir" es la ruta en la cual tengo todas mis BDs
..
....
On Error GoTo Error
' Si existe una copia la borro
If Dir(BDdir & "fotos1.mdb") <> "" Then _
Kill BDdir & "fotos1.mdb"

DoEvents
' Hago la copia
DBEngine.CompactDatabase BDdir & "fotos.mdb", _
BDdir & "fotos1.mdb"

' Elimino el original, si es una BD muy importante es mejor
' moverla a una carpeta de Backups
If Dir(BDdir & "fotos.mdb") <> "" Then _
Kill BDdir & "fotos.mdb"

' renombro la copia
Name BDdir & "fotos1.mdb" As BDdir & "fotos.mdb"
Exit Sub
Error:
...
..
IMPORTANTE
debes de asegurarte de tener cerrada la base de datos y tener espacio necesario en el disco para hacer la copia
No uses esto cada vez q borres algo en una tabla o en la BD usalo como un mantenimiento de tu BD (es decir q lo ejecutes cada cierto teimpo)

COMO ADICION EL DBENGINE, USO ES ADOX, NO CONTROLES

Agrega una referencia a Microsoft DAO 3.x Object library.