'-- Assumes that pcurcode is provided via a method argument

Using cmd As New SqlCommand()

  '-- Setup sproc

  cmd.CommandType = StoredProcedure

  cmd.CommandText = "sp_GetInfoCurrency"



  '-- Add input param

  cmd.Parameters.Add("@pcurcode",char,5)

  cmd.Parameters("@pcurcode").Value = pcurcode



  '-- Add output params

  cmd.Parameters.Add("@pcurid",int).Direction = Output

  cmd.Parameters.Add("@pcurname",nvarchar,50).Direction = Output

  cmd.Parameters.Add("@pcurrate",smallmoney).Direction = Output



  '-- Execute spoc

  Me.ExecuteNonQuery(cmd)



  '-- Get output via params

  ' Note that you might need to check for NULLs here too

  ' (I'm not here though)

  ' Vars declared outside of Using someplace....

  pcurid = CType(cmd.Parameters("@pcurid").Value, Integer)

  pcurname = Ctype(cmd.Parameters("@pcurname").Value, String)

  pcurrate = CType(cmd.Parameters("@pcurrate").Value, Decimal)

End Using