Visual Basic.NET - backup de base de datos sql server 2008 mediante codigo vb.net

Private Sub ButtonSalva_Click(sender As Object, e As EventArgs) Handles ButtonSalva.Click

    Try

         Dim Conexion1 As New SqlConnection("server=" + TextBoxInstancia.Text + ";database=" +   TextBoxSQL.Text + ";UID=" + TextBoxUsuario.Text.Trim() + ";pwd=" + TextBoxPass.Text.Trim() + "")

        dim s As String = InputBox("Nombre de la salva.")

         dim destino As String = InputBox("Destino de la Salva: ")

         if s <> ""

             s = s.Trim()

             Dim command As SqlCommand

             command = Conexion1.CreateCommand()

                 command.CommandText = "BACKUP DATABASE [" & TextBoxSQL.Text.Trim & "] TO DISK = '" & destino & s & ".bak' WITH  MEDIANAME = '" & s & "', NAME = '" & s & "'"

            Conexion1.Open()

            command.ExecuteNonQuery()

            MsgBox("Backup realizado con exito " + s.ToUpper() + ".BAK")

            Conexion1.Close()

    Catch

        MsgBox(ErrorToString())

    End Try

End Sub

'// http://www.canalvisualbasic.net/foro/visual-basic-net/backup-mysql-vb-net-16524/

'// https://msdn.microsoft.com/es-es/library/system.windows.forms.filedialog.initialdirectory%28v=vs.110%29.aspx

Dim dlgGuardar As New SaveFileDialog

dlgGuardar.InitialDirectory = sRutaMisDoc ' esta es 1 variable para ir a Mis Docum.

dlgGuardar.Filter = "Archivos de respaldo (*.sql)|*.sql"

dlgGuardar.FilterIndex = 2

dlgGuardar.RestoreDirectory = True

Dim NombreBackup As String = "BackupCentroJubilVC_" & DateTime.Now.ToString("ddMMMMyyyy_HHmm") '   yyyyMMddhhmmss") '    "MMMM dd, yyyy"  Dim fecha As String = Date.Now.Year & Date.Now.Month & Date.Now.Day

'fecha &= "_" & Date.Now.Hour & Date.Now.Minute

With dlgGuardar

    .FileName = NombreBackup ' "New_Backup_Jubilados_" & fecha

    .Filter = "Archivos de respaldo (*.sql)|*.sql"

    If .ShowDialog = Windows.Forms.DialogResult.OK Then

        If sqldata.BackUp(Path:= .FileName, KurDir:=sRutaBin) = False Then ' KurDir:=myValue) = False Then

            MsgBox("Respaldo NO realizado. ¡Problema!", CType(MsgBoxStyle.Information + MsgBoxStyle.OkOnly, MsgBoxStyle), "Notificación del sistema")

            Module1.bSeHizoBackup = False

        Else

            'https://www.webprogramacion.com/138/vbnet/acceder-a-una-url-desde-un-winform.aspx

            System.Diagnostics.Process.Start(sDirecWeb)

            'System.Diagnostics.Process.Start("https://app.box.com/login/")

        End If

    End If

End With

If sqldata.BackUp(Path:= .FileName, KurDir:=sRutaBin) = False Then ' KurDir:=myValue) = False Then

    MsgBox("Respaldo NO realizado. ¡Problema!", CType(MsgBoxStyle.Information + MsgBoxStyle.OkOnly, MsgBoxStyle), "Notificación del sistema")

    Module1.bSeHizoBackup = False