Visual Basic - Backup de base de datos desde Visual basic

Public Sub CREABACKUP(SQLS_NAME As String, SQLS_USER As String, SQLS_PWS As String, DATABASE As String, FILE_BACKUP As String)

On Local Error GoTo et

'***************************************************************************************************

'SQLS_SERVER = Nombre del servidor

'SQLS_USER =   Usuario mediante el cual se conecta al SQLSERVER

'SQLS_PWS =    Contraseña del usuario seleccionado

'DATABSE =     Nombre de la base de datos a la que se le quiere hacer el BACKUP

'FILE_BACUP =  dirección y Nombre donde se quiere realizar el backup

'***************************************************************************************************

    Dim BKN As SQLDMO.SQLServer, BKU As SQLDMO.Backup

    Set BKN = New SQLDMO.SQLServer

    Set BKU = New SQLDMO.Backup

    BKN.Connect SQLS_NAME, SQLS_USER, SQLS_PWS

    BKU.DATABASE = DATABASE

    BKU.Files = FILE_BACKUP

    BKU.SQLBackup BKN

    Set BKN = Nothing

    Set BKU = Nothing

    MsgBox "Copia de seguridad '" & FILE_BACKUP & "' ha sido creada satisfactoriamente", vbInformation

Exit Sub

et:

    Err.Clear

    MsgBox "El servidor rechazó la conexión. Es posible que el error esté dado por fallas en la configuración de su sistema.", vbExclamation

    Set BKN = Nothing: Set BKU = Nothing

End Sub

Dim str As String = "server=localhost;uid=root;" + "pwd=root;database=camara"

Dim con As MySqlConnection

con = New MySqlConnection(str)

con.Open()

If Not Directory.Exists("c:\backup") Then

    Directory.CreateDirectory("c:\backup")

End If