How can I compact & Repair Access Database from visual basic?

DAO can do this. But I want to do it with ADO or Access Automation by VB. My database is password protected (database Password)

Can you help me?