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)

本文来自: 中国自学编程网(www.zxbc.cn) 详细出处参考：http://www.zxbc.cn/html/vbsl/1212343073276.html