#include <stdio.h>
void main()
{
  int i;                                  
  printf( "\n" );                  0 . 001  сек 
  for(i= 0 ;i< 10 ;i++)              0 . 1  сек   
  {                                       
    printf( "%d" ,i);              2  сек     
    printf( "Hello World!\n" );    6  сек     
  }                              0 . 01  сек  
}
всего  8 . 102  сек

Private Sub InsDat(number As Double, orbit As Integer, knp As Long, descr As String, grafa As Integer)
    Dim qrIns As QueryDef
    Set qrIns = CurrentDb.QueryDefs( "InsDat" )
    qrIns.Parameters!Str = NumStr
     qrIns.Parameters![okonhName] = okonhName
     qrIns.Parameters![soatoName] = okatoName
     qrIns.Parameters![type_prov] = typeProv
     qrIns.Parameters![number] = number
     qrIns.Parameters![orbit] = orbit
     qrIns.Parameters![knp] = knp
     qrIns.Parameters![god] = god
     qrIns.Parameters![zn] = zn
     qrIns.Parameters![descr] = descr
     qrIns.Parameters![okonh] = okonh
     qrIns.Parameters![okato] = okato
     qrIns.Parameters![data_load] = data_load
     qrIns.Parameters![account] = account
     qrIns.Parameters![grafa] = grafa
    qrIns.Execute
End Sub

    Set mat = rg.Execute(i)
    okonhName = okonhName & mat.Item (0 ).SubMatches (0 )
    strSql =  "SELECT dbo_d_okonh.okonh FROM dbo_d_okonh WHERE (((dbo_d_okonh.OkonhName)='" & okonhName & "'));" 
    Set rec = CurrentDb.OpenRecordset(strSql)
    If Not rec.EOF Then
        okonh = rec!okonh
    Else
        okonh =  0 
    End If