Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New SqlConnection("Data Source=.;Initial Catalog=Master;Integrated Security=True;Pooling=False")
        Try
            con.Open()
            Dim SQLstr As String = "BACKUP DATABASE Employee TO DISK = 'C:\SQLServerBackups\Employee.Bak'"
            Dim com As New SqlCommand(SQLstr, con)
            com.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.ToString())
        Finally
            con.Close()
        End Try
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim con As New SqlConnection("Data Source=.;Initial Catalog=Master;Integrated Security=True;Pooling=False")
        Try
            con.Open()
            Dim SQLstr As String = "RESTORE DATABASE Employee FROM DISK = 'C:\SQLServerBackups\Employee.Bak' WITH RECOVERY"
            Dim com As New SqlCommand(SQLstr, con)
            com.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.ToString())
        Finally
            con.Close()
        End Try
    End Sub
End Class