Realizar un backup de la bbdd

Hola, necestito hacer una copia de seguridad de mi base de datos, en SQL
Server, desde la aplicación. He probado lo siguiente pero no me funciona bien:


Dim SQLBackup As BackupClass
SqlConnection1.ConnectionString = CONN
SQLBackup.Action = SQLDMO.SQLDMO_BACKUP_TYPE.SQLDMOBackup_Database
SQLBackup.Database = "bd_navegante"
SQLBackup.Files = TBDirectorio.Text
SQLBackup.SQLBackup("ESTEFANIA\LIBRERIA")

Si alguien me pudiera ayudar le estaría muy agradecida.