pb怎么執行as400里面的PGM程序？

946

各位老大：
OLEObject cn400, AllCustData, CustRcdCmd, CustRcdData, rs400
cn400 = CREATE OLEObject
long ll_status

ll_status = cn400.ConnectToNewObject ("adodb.connection")
IF ll_status <> 0 THEN
     MessageBox ("Error", "Unable to create ado.connection")      
else
     cn400.Provider = ("IBMDA400")
END IF

open(w_prompt)
connectString = "Provider=IBMDA400;Data Source=" + systemName + ";"


cn400.Open(connectString, userid, password)

CustRcdCmd = CREATE OLEObject
ll_status = CustRcdCmd.ConnectToNewObject ("adodb.command")
IF ll_status <> 0 THEN
     MessageBox ("Error", "Unable to create adodb.command")      
End If

CustRcdCmd.ActiveConnection = cn400
CustRcdCmd.Execute("{{CALL KC0003('02H00131')}}") 這句報錯，為什么？