' Abrimos la coneccion con la base de datos
Cnt.Open "File Name=" + App.Path + "\Rp3Prueba.udl"
Cmd.ActiveConnection = Cnt
Cmd.CommandType = adCmdStoredProc
Cmd.CommandTimeout = 1000
'Nombre de StoreProcedure
Cmd.CommandText = "BuscarItemSkuCorto"
'Paràmetro de entrada
Cmd.Parameters.Append Cmd.CreateParameter("xx", adVarChar, adParamInput, 20, Sku)
'Ejecutar el Procedimiento
Set Rst = Cmd.Execute
saludos