Imports System.Data.SqlClient
Dim StrSQL As String
Dim Cmd As SqlCommand
Dim StrCN As String = "aqui va tu conexion a la BD"
Dim CN As New SqlConnection(StrCN)
CN.Open()
StrSQL = "aqui escribes la cadena para realizar la copia de respaldo"
'Algo asi es la cadena
'strSQL = "BACKUP DATABASE Sistema TO DISK ='" & TxtBackup.Text & _
' "' WITH INIT, NOUNLOAD, Name=N'" & "ID-" & CdlBackup.FileTitle & _
' "', SKIP, STATS=10, NOFORMAT"
Cmd = New SqlCommand(strSQL, DB)
Cmd.ExecuteNonQuery()
Cmd.Dispose()