With ActiveDocument.Tables( 1 )

   For i =  1  To maxrow

    .Rows.Add 'Добавляем новую строку в таблицу
    
    'Далее заполняем поля в этой строке.
    With .Rows(j)
      
      .Cells( 1 ).Range.Text = rst![rtn]
      
      .Cells( 2 ).Range.Text = rst![SSE]
      
      .Cells( 3 ).Range.Text = rst![OBORUDOVANIE]
      
      .Cells( 4 ).Range.Text = rst![PROISVODITEL]
      
      .Cells( 5 ).Range.Text = rst![POLUCHATEL]
      
      .Cells( 6 ).Range.Text = rst![ADRES_POLUCHATELA]
        
      .Cells( 7 ).Range.Text = rst![SROK_DEISTVIJA]
  
    End With
  

    rst.MoveNext

    j = j +  1 

    ProgressBar1.value = i
        
    StatusBar1.Panels( 2 ).Text = i

   Next i
   
   .Rows(j).Delete 'Удаляется последняя (вспомогательная) строка таблицы.
   
 End With