Программно переношу данные из одной базы в другую
Структура баз одинаковая
Структура таблиц почти одинаковая
и вот у одной из таблиц поле ID - счётчик
А надо перенести тютелька в тютельку

Public Function FUN_LOAD_GROUP() As Boolean ' Перенос товаров On Error GoTo FUN_LOAD_GROUP_Error '---------------------------------------------------------------------------------------------------------------------------------------------------------------- FUN_LOAD_GROUP = True 'Call FUN_ARHIV_ARM Dim rst_KUDA As ADODB.Recordset Dim rst As ADODB.Recordset             Set rst = New Recordset      Form1!Text2.Text = "Группы"      Form1.Refresh    If FUN_IS_TABLE_IN_BASA("COMMODITY_GROUP_TBL", GLB_STARAYA_CONNECTION) = True Then                 rst.Open " SELECT COMMODITY_GROUP_TBL.*" _                 & " From COMMODITY_GROUP_TBL", GLB_STARAYA_CONNECTION, adOpenKeyset, adLockOptimistic                     ' проверить  на пустоту                     If rst.RecordCount = 0 Then                         Call MsgBox("Отсутствуют данные в указаном файле", vbCritical)                         rst.Close                         Set rst = Nothing                         Exit Function                     End If      Else                 Call MsgBox("Отсутствует таблица накладной COMMODITY_GROUP_TBL в указаном файле", vbCritical)                 Exit Function    End If                      ' Функция Очистка таблицы         Call FUN_CLEAR_TABLE("COMMODITY_GROUP_TBL", GLB_CONNECTION)         ' подключение к текущей таблице         Set rst_KUDA = New Recordset         rst_KUDA.Open " SELECT COMMODITY_GROUP_TBL.*" _         & " From COMMODITY_GROUP_TBL", GLB_CONNECTION, adOpenKeyset, adLockOptimistic                          rst.MoveLast                 rst.MoveFirst ' Начнем с первой записи                 Do Until rst.EOF        rst_KUDA.AddNew         Form1!Text1.Text = NZVB(rst("GROUP_NUMBER"))         Form1.Refresh             rst_KUDA("GROUP_NUMBER") = NZVB(rst("GROUP_NUMBER")) ' галочка             rst_KUDA("GROUP_NAME") = NZVB(rst("GROUP_NAME")) ' галочка             rst_KUDA("USER_NAME") = NZVB(rst("USER_NAME"))   'Имя файла.             rst_KUDA("DATE_RECORDS") = CDate(NZVAL(rst("DATE_RECORDS")))   'Имя файла.                          rst_KUDA.Update             rst.MoveNext         Loop                  rst_KUDA.Close         Set rst_KUDA = Nothing                  rst.Close         Set rst = Nothing Form1!LOG = Form1!LOG & vbCrLf & "Перенос групп товаров - готово " '---------------------------------------------------------------------------------------------------------------------------------------------------------------- On Error GoTo 0 Exit Function FUN_LOAD_GROUP_Error: FUN_LOAD_GROUP = False Error_String = Err.Description End Function

После переноса проверяю - поле счётчик принял все данные которые в него запихнули, хотя он счётчик
============================================================
И вот не знаю - верить этому или нет - потому как непонятка....
Перегонять данные будут без меня и что получится - не известно..

Да??