Mudar esta linha
vConn = “Provider=SQLOLEDB; =Server da origem de dados; Catalog=S inicial; Usuário - =X da identificação; Password=Y”
a
vConn = “Provider=SQLOLEDB.1; ***** De Password=; Persiste a segurança Info=True; Usuário - =sa da identificação; Origem de dados = 111.111.11.111; Catalog=master inicial”
Está aqui coneta à base de dados “mestre”. Mudar isso ao nome de sua base de dados que contem o SP dbo.usp_adduser2