Database

str = Application.StartupPath & "\SQLEXPR32\setup.exe /qb ADDLOCAL=ALL INSTANCENAME=" & InstanceName & " SECURITYMODE=SQL SAPWD=password DISABLENETWORKPROTOCOLS=0 "<br />
            Shell(str, AppWinStyle.Hide, True)

Dim cmd As SqlCommand<br />
        cmd = New SqlCommand("Backup Database abc to disk = @BackUpPath")<br />
        cmd.CommandType = CommandType.Text<br />
<br />
        Dim RootPath1 As String = DestinationPath 'Path for create Backup<br />
        Dim shellCommand As String = RootPath1 & "abc.bak"<br />
        cmd.Parameters.AddWithValue("@BackUpPath", shellCommand)<br />
 ExecuteRestoreCommandQuery(cmd, "master")

Private Sub ExecuteRestoreCommandQuery(ByVal comm As SqlCommand, ByVal DatabaseName As String)<br />
        Dim con1 As SqlConnection = Nothing<br />
        Try<br />
            con1 = New SqlConnection("Data Source=" & PublicServerName & "\" & PublicInstanceName & ";Initial Catalog=" & DatabaseName & ";User ID=sa;Password=password")<br />
            comm.Connection = con1<br />
            con1.Open()<br />
            comm.ExecuteNonQuery()<br />
            con1.Close()<br />
<br />
        Catch ex As Exception<br />
            msgbox(ex.Message.ToString)<br />
            If con1.State = ConnectionState.Open Then<br />
                con1.Close()<br />
            End If<br />
        End Try<br />
<br />
    End Sub