Set shSrc = Application.ActiveWorkbook.Sheets("ААААА")
  Set shDst = Application.ActiveWorkbook.Sheets("ИИИИИ")
  
  
   i = 5
  statCnt = 0
  While shSrc.Cells(1, i).Value <> 0
    i = i + 1
    statCnt = statCnt + 1
  Wend
  
      

Public Function MakeConn(bd As String, uid As String, pwd As String)
  
  Dim conn As New ADODB.Connection
  conn.Open connstr(bd, uid, pwd), uid, pwd
  Set MakeConn = conn
  
End Function


Public Sub Fill_Table_OraQuery(p_table As String, p_conn As ADODB.Connection, p_sql As String)
  ' дольем таблицу аксеса из ораклового запроса, без очистки
  
  ' выполним запрос
  Dim rs As ADODB.Recordset
  Set rs = p_conn.Execute(p_sql)

  Dim mydb As Database
  Set mydb = Application.CurrentDb
  ' откроем финальную таблицу для записи
   Dim dst_rs As DAO.Recordset
   Set dst_rs = mydb.OpenRecordset(p_table, dbOpenDynaset)


   Dim fnames As Variant
   Dim fld_count As Integer
   fld_count = rs.Fields.Count
      
   ' Создаем список полей
   Dim srcFlds(1 To 100) As ADODB.Field
   Dim dstFlds(1 To 100) As DAO.Field
   Dim i As Integer
   
   For i = 1 To fld_count
     Set srcFlds(i) = rs.Fields(i - 1)
     Set dstFlds(i) = dst_rs.Fields(rs.Fields(i - 1).Name)
   Next

   ' в цикле по набору вставляем записи
   While Not rs.EOF
    dst_rs.AddNew
    For i = 1 To fld_count
      dstFlds(i).Value = srcFlds(i).Value
    Next
    dst_rs.Update
    rs.MoveNext
   Wend

   ' закроем все открытое
   dst_rs.Close
   Set dst_rs = Nothing
   rs.Close
   Set rs = Nothing
   Set mydb = Nothing
End Sub

Private Sub btn_ora_process_Click()

  Dim l_waf As Form
  Set l_waf = Me.work_area_fld.Form
  
  Dim rs As DAO.Recordset
  Dim i As Integer
  Set rs = filtered_recordset()
  
  If Not (rs.BOF And rs.EOF) Then
     rs.MoveFirst
  End If
  
  Dim conn As New ADODB.Connection
  Set conn = utils.MakeConn("КККК", "ККККК", "КККККК")
    
  Dim l_cnt As Integer
  l_cnt = 0
     
  'Пройдем по записям, зальем в оракл помеченное для исправления
  While Not rs.EOF
    If rs!check_flg = 2 Then
       Dim act As String
       Dim l_b As String
       If rs!b Then
         l_b = 1
       Else
         l_b = 0
       End If
       
       l_cnt = l_cnt + 1
       
       act = "begin xxyyzz.update_eeee(p_id =>'" & rs!id _
       & "', p_c=>  '" & rs!my_c _
       & "', p_a => '" & rs!my_a & "' , p_b> '" & l_b & "'); end;"
       conn.Execute act
       
       rs.Edit
          rs.Fields("check_flg").Value = 4
       rs.Update
    End If
    
    rs.MoveNext
  Wend
  
  conn.Close
  
  Set conn = Nothing
  Set rs = Nothing
  
  Me.work_area_fld.Form.Refresh
  MsgBox ("Исправлено " & l_cnt)
End Sub