you class should be structured like this
imports system.data
public class SomeClass
public sub SomeRoutine
end sub
end class
i.e.
public sub BackUpDB
Try
Dim db As New Database
db = srv.Databases("My_WorkDB")
Dim bdi As BackupDeviceItem
bdi = New BackupDeviceItem("C:\Program Files\Microsoft SQL ServerMSSQL.1\MSSQL\Backup\My_WorkDB.bak", DeviceType.File)
Dim rs As Restore
rs = New Restore
rs.NoRecovery = RestoreActionType.Database
rs.Devices.Add(bdi)
rs.Database = "My_WorkDB"
rs.SqlRestore(srv)
rs.Devices.Remove(bdi)
srv.Databases("My_WorkDB").DatabaseOptions.RecoveryModel = RecoveryModel.Full
Catch ex As Exception
End Try
sqlConn.Close()
end sub