' Backup the specified database.' Note: requires Imports System.Data.SqlClient'' Example:' Dim connString As String = "server=(local); user id=sa; password=; ' Database=master;"' Try' BackupDatabase(connString, "MyTestDB", "D:MyTestDbBackup.bak")' Catch ex As Exception' MessageBox.Show(ex.Message)' End TrySub BackupDatabase(ByVal connString As String, ByVal dbName As String, _ ByVal backupFile As String) Dim cn As New SqlConnection(connString) Try ' the command for backing up the DB Dim cmdBackup As New SqlCommand("BACKUP DATABASE [" & dbName & _ "] TO DISK = '" & backupFile & "'", cn) cn.Open() cmdBackup.ExecuteNonQuery() Finally cn.Close() End TryEnd Sub