Visual Basic - PARA EXPERTOS EN BASE DE DATOS ADO ACCESS

Amigos tengo una base de datos en Access2000 con contraseña y me conecto desde visual basic con

Dim JJJ As New JRO.JetEngine
CN.Close 'MI CONEXION
'para accces 97 o 2000
'cad =la ruta de mi base de datos
JJJ.CompactDatabase "provider=microsoft.jet.oledb.4.0;data source=" & cad, " OLEDB:Database Password=renzo provider=microsoft.jet.oledb.4.0;data source=c:\compactado97.mdb;jet oledb:engine type=4"
Kill cad
Name "c:\compactado97.mdb" As cad
CN.Open cad
'MsgBox "Operación Completada con Exito", , "COMPACTACION"

PERO COMO ELIMINO LA BASE DE DATOS QUE ESTABA CON CONTRASEÑA Y LA COMPACTADA YA NO SALE CON CONTRASEÑA QUE PUEDO HACER .
ME GUSTARIA QUE ME RESPONDAN LO MAS ANTES POSIBLE OK

Prueba esto.

Dim s As New JRO.JetEngine
s.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=
TUBASE.mdb;Jet OLEDB:Database Password=TUPWD;", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
TUBASE1.mdb;Jet OLEDB:Database Password=TUPWD;"

A mi me funciona Ok.