VB中调用ORAC过程,大家帮忙,在线等,谢谢!!!

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim pbh As New ADODB.Parameter
Dim pxm As New ADODB.Parameter
Dim plb As New ADODB.Parameter
Dim pe As New ADODB.Parameter
Dim pp As New ADODB.Parameter
Dim pm1 As New ADODB.Parameter
Dim pm2 As New ADODB.Parameter
Dim pm3 As New ADODB.Parameter cn.Open "provider=msdaora;data source=myoracle;user id=system;password=58007;"With cmd
    .CommandType = adCmdStoredProc
    .CommandText = "stuinsert"
    .ActiveConnection = cn
    
   Set pbh = .CreateParameter("pbh", adNumeric, adParamInput, 10)
   Set pxm = .CreateParameter("pxm", adChar, adParamInput, 10)
   Set plb = .CreateParameter("plb", adChar, adParamInput, 10)
   Set pe = .CreateParameter("pe", adNumeric, adParamInput, 4)
   Set pp = .CreateParameter("pp", adNumeric, adParamInput, 4)
   Set pm1 = .CreateParameter("pm1", adNumeric, adParamInput, 4)
   Set pm2 = .CreateParameter("pm2", adNumeric, adParamInput, 4)
   Set pm3 = .CreateParameter("pm3", adNumeric, adParamInput, 4)
   .Parameters.Append pbh
   .Parameters.Append pxm
   .Parameters.Append plb
   .Parameters.Append pe
   .Parameters.Append pp
   .Parameters.Append pm1
   .Parameters.Append pm2
   .Parameters.Append pm3
   .Parameters("pbh").Value = 20258001
   .Parameters("pxm").Value = "littelered"
   .Parameters("plb").Value = "master"
   .Parameters("pe").Value = 60
   .Parameters("pp").Value = 60
   .Parameters("pm1").Value = 60
   .Parameters("pm2").Value = 60
   .Parameters("pm3").Value = 50
 
End With
cmd.Execute
End Sub过程stuinsert为
(tempbh in stu.bh%type,
tempxm in stu.xm%type,
templb in stu.lb%type,
tempe in stu.e%type,
tempp in stu.p%type,
tempm1 in stu.m1%type,
tempm2 in stu.m2%type,
tempm3 in stu.m3%type)as
begin
insert into stu values(tempbh,tempxm,templb,tempe,tempp,tempm1,tempm2,tempm3);
end;
stu表结构为
 名称                                      是否为空? 类型
 ----------------------------------------- -------- ----------------------------
 BH                                        NOT NULL NUMBER(10)
 XM                                        NOT NULL VARCHAR2(10)
 LB                                        NOT NULL VARCHAR2(10)
 E                                         NOT NULL NUMBER(4,1)
 P                                         NOT NULL NUMBER(4,1)
 M1                                        NOT NULL NUMBER(4,1)
 M2                                        NOT NULL NUMBER(4,1)
 M3                                        NOT NULL NUMBER(4,1)run时候错误为必须说明标识符 'stuinsert'
?????????????