Visual Basic - Oracle

Hola, Buenas Tardes, Tengo el siguiente problema, necesito conectarme a la base de datos de oracle y ejecutar un procedimiento almacenado, tengo el siguiente código pero me da unos errores.

sConexion = "Data Source=" & sServicio & ";User Id=" & sUser & ";Password=" & sPass
Set cnn = New ADODB.Connection
cnn.Open sConexion

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cnn
cmd.CommandText = "PVPRECIO_VISOR"
cmd.CommandType = adCmdStoredProc
cmd.CommandTimeout = 15

Set prm1 = New ADODB.Parameter
prm1.Type = adVarChar
prm1.Size = 2
prm1.Direction = adParamInput
prm1.Value = "01"
cmd.Parameters.Append prm1

Set prm4 = New ADODB.Parameter
prm4.Type = adVarChar
prm4.Size = 30
prm4.Direction = adParamOutput
cmd.Parameters.Append prm4

Set rst = cmd.Execute

Este es el error que me da:

[Oracle][ODBC]Syntax error or access violation.

si alguien me puede ayudar se lo agradeceria mucho, necesito esto con URGENCIA

Atentamente
Livingstone Martínez

Hola,

Desde ya que vas a tener error ya que estas tratando de conectar por cadena de conexion y estas usando una cadena de conexion erronea.

Primero que nada tenes que definirle que te vas a conectar con un cliente Oracle (Ovbio que tenes que tener un servidor oracle instalado en la maquina que hace la conexion y en cada una donde uses el programa), despues podes usar un adoControl para generar la cadena de conexion, la copias y la pegas en un connectionString de Ado y listo!!!

Espero te haya servido, sino avisame y te paso un ejemplito.