Как вызвать процедуру оракла из кода vb

Формулировка задачи:

Здравствуйте друзья мои. Пытаюсь вызвать процедуру

Private Sub EXPORT_DATA_ORACLE()
  Dim conn As Object
  Dim cmd As Object
  Dim r As Range
  Dim p_quantity   As Double
  Dim p_price      As Double
  Dim p_summa      As Double
  Dim p_nds        As Double
  Dim p_totalsum   As Double
  Dim p_dog_number As String
  
  Application.StatusBar = "Процесс запущен"
 
  'Открываем соединение
  Set conn = CreateObject("ADODB.Connection")
  conn.Open "Provider=MSDAORA.1; Password=q;User ID=user;Data Source=TEST;Persist Security Info=True"
 
  'Явно начинаем транзакцию, воизбежание режима AutoCommit=ON
  conn.BeginTrans

' Последняя заполненная ячейка
  v_filled_cell = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
 
  'Создаем команду
  Set cmd = CreateObject("ADODB.Command")
  cmd.ActiveConnection = conn
 
  'Проходим по всем заполненным строкам
For iRow = 2 To v_filled_cell
 
    p_dog_number = ActiveSheet.Cells(iRow, 1).Value
    
    p_quantity = ActiveSheet.Cells(iRow, 3).Value
    f_p_quantity = Format(p_quantity, "0.0")
    
     p_price = ActiveSheet.Cells(iRow, 4).Value
     f_p_price = Format(p_price, "0.000")
     
     p_summa = ActiveSheet.Cells(iRow, 5).Value
     f_p_summa = Format(p_summa, "0.00")
     
     p_nds = ActiveSheet.Cells(iRow, 6).Value
     f_p_nds = Format(p_nds, "0.00")
     
     p_totalsum = ActiveSheet.Cells(iRow, 7).Value
     f_p_totalsum = Format(p_totalsum, "0.00")

    If p_dog_number <> "" Then ' если ячейка не пуста то заносим в базу
 
     cmd.CommandText = "begin export_accounts(" & f_p_quantity & "," & _
                                                   f_p_price & "," & _
                                                   f_p_summa & "," & _
                                                   f_p_nds & "," & _
                                                   f_p_totalsum & "," & _
                                                   p_dog_number & "," & _
                                                   "'31.01.2012');" & _
                        "end;"
      cmd.Execute
    End If
  Next iRow
 
 ' Сохраняем данные
  conn.CommitTrans
 
  'Удаляем команду и закрываем соединиение
  Set cmd = Nothing
  conn.Close
 
  Application.StatusBar = "Процесс завершен"
End Sub

Private Sub CommandButton1_Click()
 
  EXPORT_DATA_ORACLE
 
End Sub
 
'End Sub

cmd.CommandText = "export_accounts" cmd.CommandType = CommandType.StoredProcedure

Процедура сама работает нормально, ее я запускал из plsql девелопера. То, что помечено зеленым - пример на vb.net, можно так делать на vb?

Думаю нашел.

Решение задачи: «Как вызвать процедуру оракла из кода vb»

textual
                            Листинг программы 
                        

                             Dim cmd As ADODB.Command
 Dim conn As ADODB.Connection
 Set cmd = New ADODB.Command
 Set conn = New ADODB.Connection
  With cmd
       .ActiveConnection = conn
       .CommandText = "EXPORT_ACCOUNTS"
       .CommandType = adCmdStoredProc ' Тут "ругается" на несоответствие типов, хотя типы я проверял
       .Parameters.Append .CreateParameter(, adDouble, adParamInput)
       .Parameters.Append .CreateParameter(, adInteger, adParamInput)
       .Parameters.Append .CreateParameter(, adInteger, adParamInput)
       .Parameters.Append .CreateParameter(, adInteger, adParamInput)
       .Parameters.Append .CreateParameter(, adInteger, adParamInput)
       .Parameters.Append .CreateParameter(, adBSTR, adParamInput)
       .Parameters.Append .CreateParameter(, adBinary, adParamInput)
  End With
                        