Hola q tendria q cambiar en la cadena de conexion

Hola e creado un login de usuario
y un rol de aplicacion para ese usuario
con privilegio
Ahora una vez que entro y coloco mi login y contraseña
como activo el rol de aplicacion se q se activa con
exec sp_setapprole 'Aplicacion','Aplicacion_perfil'
En caso q entre al sitemas mediando un formulario le mando por paso de
parametros el login y la clave de contraseña en mi cadena como se deberia
ejecutar
el sp_setpprole como lo tendria q hacer gracias

create database pruebas go
exec sp_addlogin 'Usuario','contraseña'
exec sp_Addapprole 'Aplicacion','Aplicacion_perfil'
use pruebas
exec sp_grantdbaccess 'Aplicacion'
exec sp_addrolemember 'db_owner','Aplicacion'
go
:
exec sp_setapprole 'Aplicacion','Aplicacion_perfil'

Mi cadena de conexion es

Protected Function Conectar() As SqlConnection

Dim strCon As String

Dim conTemp As System.Data.SqlClient.SqlConnection

strCon = "server=" + Servidor + ";" _

+ "database=" + DB + ";uid=" + Nombre() _

+ ";pwd=" + password() + ";"

conTemp = New SqlConnection(strCon)

Return conTemp

End Function