Dove posso inserire la pwd del database?

codice:
for i = lbound(KKArrayDB) to ubound(KKArrayDB)
	'comprimo il database 
	response.write "<hr><p class='small'>Compressione Database "& KKArrayDB(i) &".mdb in corso..."
	Set miodb = CreateObject(KKMotore) 
	miodb.CompactDatabase server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"), server.MapPath(KKPercorso & KKArrayDB(i) & "_new.mdb")