Restore & Backup database using Code

this is a sql sp
try this

DECLARE @DBName varchar(255)  DECLARE @DATABASES_Fetch int  DECLARE DATABASES_CURSOR CURSOR FOR     select         DATABASE_NAME   = db_name(s_mf.database_id)     from         sys.master_files s_mf     where        -- ONLINE         s_mf.state = 0          -- Only look at databases to which we have access     and has_dbaccess(db_name(s_mf.database_id)) = 1           -- Not master, tempdb or model     and db_name(s_mf.database_id) not in ('Master','tempdb','model')     group by s_mf.database_id     order by 1  OPEN DATABASES_CURSOR  FETCH NEXT FROM DATABASES_CURSOR INTO @DBName  WHILE @@FETCH_STATUS = 0 BEGIN     declare @DBFileName varchar(256)         set @DBFileName = datename(dw, getdate()) + ' - ' +                         replace(replace(@DBName,':','_'),'\','_')      exec ('BACKUP DATABASE [' + @DBName + '] TO  DISK = N''c:\db backup\' +          @DBFileName + ''' WITH NOFORMAT, INIT,  NAME = N''' +          @DBName + '-Full Database Backup'', SKIP, NOREWIND, NOUNLOAD,  STATS = 100')      FETCH NEXT FROM DATABASES_CURSOR INTO @DBName END  CLOSE DATABASES_CURSOR DEALLOCATE DATABASES_CURSOR 

Dear its vb.net code for just understanding 



Imports System.Data.SqlClient
Public Class Form1
  Dim con As SqlConnection
  Dim cmd As SqlCommand
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  con = New SqlConnection("Data Source=localhost;Integrated Security=SSPI;Initial Catalog=DBNAME")
  End Sub
  ' Backup
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  cmd = New SqlCommand("backup database DBNAME to disk='\\server\path\filename.bak'", con)
  con.Open()
  cmd.ExecuteNonQuery()
  con.Close()
  End Sub
  ' Restore
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  cmd = New SqlCommand("restore database DBNAME from disk='\\server\path\filename.bak'", con)
  con.Open()
  cmd.ExecuteNonQuery()
  con.Close()
  End Sub
End Class

Please check this thread for detail:
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=2568063&SiteID=1