Backup de SQL Server 2008 r2 dede VB.NET 2010

Espero me entiendan:

En la siguienta tabla describo lo que vamos a necesitar:

Herramienta Clave Valor

TextBox -----------------------(Name)----------------txtdestino
ReadOnly------------True

Button--------------------------(Name)----------------BTNAEXAMINAR
Button--------------------------(Name)----------------btnrespaldar
Button--------------------------(Name)----------------btnsalir



he aqui el código:

Imports System.Data.SqlClient
Imports System.Data.Sql
Imports System.Data


Public Class Form1
'Aquí tu conexción del servidor
Dim CN As New SqlConnection("Data Source=SERVIDORSIGEPOSQL2008R2;Initial Catalog=DISTRIBUIDORALM;Persist Security Info=True;User ID=DAVID3;Password=1234"

Private Sub btnrespaldar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrespaldar.Click

Try
If txtdestino.Text = "" Then
MsgBox("Escoja la ubicación para guardar la copia de seguridad"
CN.Close()
Else
Dim DESTINO As String = txtdestino.Text
'Este Query se encarga de hacer el backup en la ruta que escojiste
Dim cmd As New SqlCommand("BACKUP DATABASE DISTRIBUIDORALM TO DISK = '" & DESTINO & "BACKUP.bak'", CN)
CN.Open()
cmd.ExecuteNonQuery()
CN.Close()
MsgBox("Cerrando el Sistema para completar el Backup"
End
End If

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, AcceptButton)
CN.Close()
End Try

End Sub

Private Sub BTNAEXAMINAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNAEXAMINAR.Click

Dim dlgDestino As New FolderBrowserDialog
With dlgDestino
.Description = "Seleccione el directorio de destino, trate de no escojer uno en donde se encuentre el sistema operativo:"
If .ShowDialog = Windows.Forms.DialogResult.OK Then

Dim strDestino As String = .SelectedPath.ToString
If Not strDestino.EndsWith("" Then
strDestino = strDestino & ""
End If
Me.txtdestino.Text = strDestino
End If
End With
End Sub

Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
Close()
End Sub
End Class

Es todo, alguna duda escribanme.