Sub connect(zapros As Boolean) ' Процедура подключения 
 Dim Space As ADODB.Connection

 Set space = New ADODB.Connection

 Space.ConnectionString = "Provider=MSDASQL.1;Password=PWD;Persist Security Info=True;User ID=User;Data Source=NameODBC"
 Space.Open

 rec_TZ Space

End Sub

Sub rec_TZ(con As ADODB.Connection) ' Процедура формирования параметров для запроса
 Dim T_start As String
 Dim sqlstring As String
 Dim rst As ADODB.Recordset
 Dim Checkdate As Boolean
 Const AllStation = "Âñå ñòàíöèè"

Set rst = New ADODB.Recordset
sqlstring = "exec repTZSched  "

  
Set rst.ActiveConnection = con
rst.Open sqlstring
if not rst.eof then
Обработка первого рекордсета
end if

'Set rst=rst.NextRecordset ' 
'if not rst.eof then
'обработка 
'end if
'Если сделать вот так , то в принципе все работает, но мне удобнее передать RecordSet в процедуру


Proc_one_station rst, con    ' Передаю RecordSet и Connection

End Sub

Sub Proc_one_station(rst As ADODB.Recordset, con As ADODB.Connection)           Dim Row As Integer
Dim rowSummLot As Integer
Dim chapt As String
Dim countPOS As Integer
Dim countarray As Integer

Row_Other = Row_chapter( 0 )
Row_PIR = R_PIR
Row_Device = R_Device
Row_SMR = R_SMR
Row =  7 
Row_chapter( 0 ) = Row
countPOS =  1 
countarray =  1 
i = rst.Fields.Count ' проверяю количество полей в первом RecordSet 
Set rst = rst.NextRecordset
i = rst.Fields.Count 'Во втором RecordSet ? сделал временно для удобства
If Not rst.EOF Then
new_name:
'For j = 0 To 3
rst.MoveFirst          'Вот в этом месте возникает ошибка типа
                            'run-time error '-2147217896 (80040e18)':
                           'Не удается вновь задать положение в наборе строк
Дальнейшая обработка


End Sub