Dim par As ADODB.Parameter
Set par = New ADODB.Parameter
Dim params( 0  To  31 ) As String
Dim iCount As Integer
            
'заполнение массива

With par
      .Name = "p_data"
      .Type = adArray + adVarChar
      .Direction = adParamInput
      .value = params
      .Size =  32 
End With
Call Exec_Command_With_Params(db_connection, "M_PACK.Insert_Row", par)

Public Sub Exec_Command_With_Params(connection As ADODB.connection, command_text As String, command_param As ADODB.Parameter)
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command
    With cmd
        .ActiveConnection = connection
        .CommandType = adCmdStoredProc
        .CommandText = command_text
        .Parameters.Append command_param
        .Execute  - ошибка ссылается на это место
    End With
    Set cmd = Nothing
End Sub

type data is varray( 32 ) of varchar2( 50 );
procedure Insert_Row(p_data IN data) as
 begin
   ...
 end