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)