BUG: Package Call Fails if Parameters Are Not Present

create or replace package pack1 is
procedure proc1;
end pack1;
/ 

create or replace package body pack1 is
procedure proc1 is
begin
  insert into department values (50,'RESEARCH', 124);
end proc1;
end pack1;
/ 
				

   Private Sub Command2_Click()
      Dim cmd As ADODB.Command
      Dim rst As ADODB.Recordset
      Dim m_session As ADODB.Connection
      Set m_session = New ADODB.Connection
      m_session.CursorLocation = adUseClient
      ' Replace "***" with your own Oracle DSN
      m_session.Open "DSN=***", "demo", "demo"
      Set cmd = New ADODB.Command
      cmd.ActiveConnection = m_session
      cmd.CommandText = "pack1.proc1"
      cmd.CommandType = adCmdStoredProc
      cmd.Execute
   End Sub