'===========INITILIZE BACKUP OBJECT====================
Private DBackup As JavaObject
Dim Prpt As Map
Prpt.Initialize
Prpt.Put("DB_NAME", DBName) ' defined elsewhwre
Prpt.Put("DB_USERNAME", DBUsername)
Prpt.Put("DB_PASSWORD", DBPassword)
Prpt.Put("EMAIL_HOST", "smtp.server.com")
Prpt.Put("EMAIL_PORT", "465")
Prpt.Put("EMAIL_USERNAME", "emailuser")
Prpt.Put("EMAIL_PASSWORD", "emailpass")
Prpt.Put("EMAIL_FROM", "user@test.com")
Prpt.Put("EMAIL_TO", "recipient@test.com")
Prpt.Put("TEMP_DIR", "C:\Users\Public\Documents")
DBackup.InitializeNewInstance("com.smattme.mysql-backup4j", Prpt)
DBackup.RunMethod("export", Null)