Useful article. A few typos in the code though maybe?

Module CreateInitialConnection Public ProdServer As New Server()

Public ProdConn As ServerConnection

[...]

should read (note line break)

Module CreateInitialConnection

Public ProdServer As New Server()

Public ProdConn As ServerConnection

[...]

and

ImportsMicrosoft.SqlServer.Management.Smo

Imports Microsoft.SqlServer.Management.Common

should read

Imports Microsoft.SqlServer.Management.Smo

Imports Microsoft.SqlServer.Management.Common

Also, as a vb.net newbie I don't know if this is required in all cases but I got a failure every time I tried to run the code until I went into Project Properties -> Security and enabled "Enable ClickOnce Security Settings" and checked "This is a full trust application"