Visual Basic - COMO EJECUTAR UN STORED PROCEDURE DESDE VB. S.O.S

HABER SI ALGUIEN SE LA SABE, PARECE QUE ES SOLO UN PROBLEMA DE SINTAXIS.
TENGO GENERADO UN STORED PROCEDURE EL CUAL TIENE QUE RECIBI LOS PARAMETROS DE FOLIO Y SUCURSAL.

SI LO EJECUTO DESDE VB QUEDA ASI
TEMP="EXECUTE NOMBREDELSTOREDPROCEDURE PARAMETRO1, PARAMETRO2"
RS.OPEN TEMP, CONEXION

SI LE PASO LOS PARAMETROS DIRECTAMENTE CORRE A LA PERFECCION.
EL PROBLEMA ES COMO LE PASO ESOS PARAMETROS A LA INSTRUCCION EXECUTE DESDE TEXTBOX.
POR EJEMPLO EL PARAMETRO1 PROVIENE DEL TEXTBOX1 Y EL PARAMETRO2 PROVIENE DEL TEXTBOX2. INTENTE ESTO PERO NO FUNCIONO.

dim x%,y%
x=val(text1)
y=val(text2)
temp="execute nombredelstoredprocedura x, y"

QUE ESTA MAL. SI SE FIJAN LOS PARAMETROS QUE PROVIENEN DE LOS TEXTBOX LOS CAPTURO COMO VALORES NUMERICOS.

SALUDOS

SUPONGO Q PODRIA SER ASI:

temp="execute nombredelstoredprocedura" & x & "," & y & "

Te suguiero lo siguiente

1)Definir comando publico

Public comGetOneInstance as ADODB.Command

---------------------
2)Define a nivel de modulo lo siguiente

Public Sub LeeTGasto(TGasto)
Set comGetOneInstance = New ADODB.Command
With comGetOneInstance
.ActiveConnection = cnContabilidad
.CommandType = adCmdStoredProc
.CommandText = "sp_GetOneInstance_TGasto"
.Parameters.Append .CreateParameter("@COD_TGASTO", adChar, adParamInput, 2)
.Parameters("@COD_TGASTO").Value = TGasto
.Parameters.Append .CreateParameter("@DES_TGASTO", adChar, adParamOutput, 20)
.Parameters.Append .CreateParameter("@RETURN", adInteger, adParamReturnValue)
.Execute 'Ejecuta el SQL-Procedure
End With
End Sub

---------------------
3)Forma de llamarlo desde el Formulario deseado

Call LeeTGasto(txtTGasto.Text)
If comGetOneInstance.Parameters("@RETURN").Value = 0 Then
txtDescrTGasto = comGetOneInstance.Parameters("@DES_TGASTO").Value
Else
txtDescrTGasto = ""
End If

FUNCIONA DE LAS DOS FORMAS

GRACIAS.