Public Sub Main()

        Dim i As Integer

        Dim da1 As New OleDb.OleDbDataAdapter("SELECT * FROM ABC", ConnStr(db1))
        Dim da2 As New OleDb.OleDbDataAdapter("SELECT * FROM ABC", ConnStr(db2))
        
Dim dt As New Data.DataTable("ABC")

        da1.Fill(dt)
        For i =  0  To dt.Columns.Count -  1 
            MsgBox(dt.Columns(i).ColumnName.ToString)
        Next
        For i =  0  To dt.Rows.Count -  1 
            MsgBox(dt.Rows(i).Item( 0 ).ToString)
        Next

        Dim cb As New OleDb.OleDbCommandBuilder(da2)
        MsgBox(da2.Update(dt).ToString)

        da1.Dispose()
        da2.Dispose()
        dt.Dispose()

        Dts.TaskResult = Dts.Results.Success
    End Sub

Private Sub StartCorrection_Click()
On Error GoTo Err_StartCorrection_Click:

    
    Dim mdb_cn As ADODB.Connection
    Dim sql_cn As ADODB.Connection
    

	...
    
	do	'перебираю записи из таблицы и обрабатываю каждую отдельно	'
                    ... ' готовлю запрос как строку'
                    sql_cn.BeginTrans
                    mdb_cn.BeginTrans
                    
                    On Error GoTo ERR_EXEC_SQL
			
		    sql_cn.execute (<некий скрипт>)
		    mdb_cn.execute (<некий скрипт>)		
  		
                    
                    sql_cn.CommitTrans
                    mdb_cn.CommitTrans

next_record:
	loop                    
  
    
Exit_StartCorrection_Click:
   On Error Resume Next
   ... ' закрываем коннекшны и рекордсеты'
   Exit Sub
    
Err_StartCorrection_Click:
    MsgBox Err.Description, vbCritical
    Err.Clear
    GoTo Exit_StartCorrection_Click

ERR_EXEC_SQL:
    On Error GoTo Err_StartCorrection_Click
    
    If mdb_cn.Errors.Count >  0  Or sql_cn.Errors.Count >  0  Then
    
        mdb_cn.RollbackTrans
        sql_cn.RollbackTrans
        
        
	...	'логирование ошибки    '    
        
        mdb_cn.Errors.Clear
        sql_cn.Errors.Clear
    
        
        
    End If
    Resume next_record
    
    
End Sub