Urgente : Compattare Db Access 97

[pascan2]

Salve ecco tutto:
devo compattare un db access97 con password (ottica), e uso Visual basic 6.0.
Ho provato tutti gli script del forum, ma vanno bene sempre e soltanto per quei database senza password.
Premetto che uso i data control per utilizzare il db.

Richiesta:
1)Visto i tanti errori, c'è qualcuno che mi possa dire per filo e per segno tutti i passaggi (per modo di dire)(es.ocx da inserire etc.) che devo fare affinchè riesco a compattare il db.

Ps=postate anche il codice
Grazie.

[yyzyyz]

prova con questo, l'ho trovato su un esempio in ASP:
ps . sorgente un po' modificato e nn testato

Dim dbnameOLD, dbnameNEW, sPassword 

dbnameOLD = app.path & ("/prova.mdb")
dbnameNEW = app.path & ("/prova_compattato.mdb")
sPassword = "123" 

CompactDatabase dbnameOLD, dbnameNEW, , , ";pwd=" & sPassword