Err: 3704
     "Operation not allowed when the object is closed"

Dim Connection As ADODB.Connection
Dim AdoCommand As ADODB.Command
Set Connection = New ADODB.Connection

Connection.CursorLocation = adUseClient
   
 'Инф по соединению 
Dim User As String
Dim Pass As String
Dim BD As String
User = Range("E3").Value
Pass = Range("F3").Value
BD = Range("G3").Value

    Connection.CommandTimeout =  5 
    Connection.Provider = "SQLOLEDB"
    Connection.ConnectionString = "Provider=SQLOLEDB;User ID=" & User & ";Password=" & Pass & ";Initial Catalog=" & BD & ";Data Source=Folionew"
    Connection.Open

Set AdoCommand = New ADODB.Command
    AdoCommand.CommandTimeout =  120 
    AdoCommand.ActiveConnection = Connection
    AdoCommand.CommandType = adCmdStoredProc
    AdoCommand.CommandText = "dbo.P_DATA_ZP"

     'Описываем параметры процедуры 
    Dim Par1 As ADODB.Parameter
    Dim Par2 As ADODB.Parameter
    Dim Par3 As ADODB.Parameter
    
    Set Par1 = New ADODB.Parameter
    Par1.Name = "STR"
    Par1.Type = adVarChar
    Par1.Size =  1000 
    Par1.Direction = adParamInput
    Par1.Value = Range("E2").Value
    
    Set Par2 = New ADODB.Parameter
    Par2.Name = "PRN"
    Par2.Type = adInteger
    Par2.Direction = adParamInput
    Par2.Value = Val(Range("F2").Value)
    
    Set Par3 = New ADODB.Parameter
    Par3.Name = "vStartDate"
    Par3.Type = adVarChar
    Par3.Size =  20 
    Par3.Direction = adParamInput
    Par3.Value = Range("G2").Value
    
    AdoCommand.Parameters.Append Par1
    AdoCommand.Parameters.Append Par2
    AdoCommand.Parameters.Append Par3
    
    Dim RS1 As ADODB.Recordset
    Set RS1 = AdoCommand.Execute
    Range("E1").Value = RS1.RecordCount