VB6.0 i Compact&Repair Access2000

Pišem VB6.0 aplikaciju koja u jednom prolazu može da nakrca tabelu u Access 2000 bazi sa preko milion zapisa. Kada posle analiza iz aplikacije pristupim tabeli i obrišem njen sadržaj, fajl baze ostaje ogroman sve dok ne otvorim ručno bazu i odradim Compact and repair.
Kako da izbegnem ovu neugodnost, tj. da iz aplikacije 'temeljitije' obrišem sadržaj tabele ili bar odradim C&R?

Potpis

c000 lda #$33
c002 sta $0400
c005 lda #$37
c007 sta $0401
c00a lda #$21
c00c sta $0402
c00f rts

sys 49152

Dodati referencu na Microsoft Jet ad Replication Objects library

Dim jro As jro.JetEngine
Set jro = NEW jro.JetEngine
jro.CompactDataBase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=x:\temp\nwind.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=x:\temp\nwind_2.mdb;Jet OLEDB:Engine Type=5"

Kao rezultat kreira se nova baza nwind_2.mdb

Engine Type
------------------------------------------------------
1 = Jet1.0
2 = Jet1.1
3 = Jet2.x
4 = Jet3.x
5 = jet4.x

Potpis

Commercial-Free !!!

A ako baza access ima sifru ?