Sub test()

Dim newconn As New ADODB.Connection
Dim ConnStr


ConnStr = "Driver={Oracle in instantclient};Dbq=172.17.1.60:1521/orcl; Uid=otk;Pwd=otk;"

newconn.Open ConnStr


If newconn.State = adStateOpen Then
  MsgBox "Connection Successful"
Else
   MsgBox "no connection"
End If

'rsRecords.Close
'Set rsRecords = Nothing

Dim cmd As ADODB.Command

Set cmd = New ADODB.Command

cmd.ActiveConnection = newconn
cmd.CommandText = “Procedure2”

cmd.CommandType = adCmdStoredProc

Set Parameters = cmd.CreateParameter("user_ceh", adVarWChar, adParamInput, 2)
Parameters("user_ceh").Value = 12 -- ОШИБКА В ЭТОЙ СТРОКЕ

Set Parameters = cmd.CreateParameter("user_dat", VarChar, adParamInput, 6)
Parameters("user_dat").Value = 182014

Set Parameters = cmd.CreateParameter(“user_pr”, adVarWChar, adParamInput, 2)
Parameters.Value = "2"

Dim rs2 As ADODB.Recordset

Set rs2 = cmd.Execute()

Debug.Print rs2.GetString

newconn.Close

Set newconn = Nothing

Set cmd = Nothing

End Sub