问题出在哪里？setParameterInfo？？？

Question

Private Sub jcyw_Click()
Dim sql As ADODB.Command
Set sql = New ADODB.Command
If WFConn.State = 1 Then
With sql
    .ActiveConnection = WFConn
    .CommandType = adCmdStoredProc  
    .CommandText = "VEH_ADMIN.write_vehicle_zt"            '注释：存储过程名称
    .Parameters.Refresh
    
    .Parameters("M_HPZL").Type = adBSTR
    .Parameters("M_HPZL").Direction = adParamInputOutput
    .Parameters("M_HPZL").Value = "aa"
    
    .Parameters("M_HPHM").Type = adBSTR
    .Parameters("M_HPHM").Direction = adParamInputOutput
    .Parameters("M_HPHM").Value = "bb"
    
    .Parameters("M_ZT").Type = adBSTR
    .Parameters("M_ZT").Direction = adParamInputOutput
    .Parameters("M_ZT").Value = "cc"
    
    .Parameters("M_BJ").Type = adBSTR
    .Parameters("M_BJ").Direction = adParamInputOutput
    .Parameters("M_BJ").Value = "cc"
    
End With
  sql.Execute
Else
MsgBox "请注意，数据未连接！", vbInformation, "信息"
End If
End Sub
报错：提供信息不能到处参数信息，没有调用setParameterInfo

Answer 1

Function Connection(SName As String, UName As String, PWS As String)
On Error GoTo error1
ConStr = "Provider=OraOLEDB.Oracle.1;Password=" & PWS & ";Persist Security Info=True;User ID=" & UName & ";Data Source=" & SName
WFConn.ConnectionString = ConStr
WFConn.CursorLocation = adUseClient
WFConn.Open
MsgBox "本地数据连接成功！", vbInformation, "信息"
Exit Function
error1:
    MsgBox Combo1.Text & "地连接发生错误" & Err.Description & "错误代码" & Err.Number
End Function