Cambiar esta línea
vConn = “Provider=SQLOLEDB; Datos Source=Server; Catalog=S inicial; =X de la identificación del usuario; Password=Y”
a
vConn = “Provider=SQLOLEDB.1; ***** De Password=; Persiste la seguridad Info=True; =sa de la identificación del usuario; Datos Source= 111.111.11.111; Catalog=master inicial”
Aquí está conecta con la base de datos “amo”. Cambiar eso al nombre de su base de datos que contenga el SP dbo.usp_adduser2