VB连接ORACAL过程

     Dim  aCmd  As  ADODB.Command
     Set  aCmd  =   New  ADODB.Command
     With  aCmd
'         .Name = "PACKAGENAME"
        .ActiveConnection  =  ConnectionStr
        .CommandType  =  adCmdStoredProc
        .CommandText  =   " PACKAGE.PROCEDORE "
        .Parameters.Append .CreateParameter( " inNO " , adNumeric, adParamInput)

        .Parameters( 0 ).Value  =   1

     End   With
    
     Call  aCmd.Execute(Options: = adExecuteNoRecords)