1  create or replace procedure apmc_sel(p_id in apmc.dno%type,
 2           p_name out apmc.dname%type)
 3    as
 4  begin
 5   select dname into p_name from apmc where dno=p_id;
 6*  end;

Public Sub MYPROC()

 Dim STR As String
'

   
      With p1
      .Direction = adParamInput
      .Type = adNumeric
      .Value = Form1.Text1.Text
      End With
      
      With p2
      .Direction = adParamOutput
      .Type = adBSTR
      
      End With
      

      With Q1
      .CommandText = "SCOTT.APMC_PROC"
      .CommandType = adCmdStoredProc
      .ActiveConnection = con
      .Parameters.Append p1
'      .Parameters.Append p2
      End With
      
     Q1.Execute (error here)
      
   
   MsgBox "procedure executed", vbInformation   
End Sub