я вот так влот перемещаю таблицу из одной базы в другую

Public Function FUN_TRANSFER_TABLE_AND_DATA(STR_BAZA_NAME As String, STR_TABLE_NAME As String)
'Создание Таблицы в базе с переносом всех данных исходной таблицы
Dim AdoxCat_TABLE As Object
Dim AdoxTbl_TABLE As Object

Set AdoxCat_TABLE = CreateObject("ADOX.Catalog")
Set AdoxTbl_TABLE = CreateObject("ADOX.Table")

AdoxCat_TABLE.ActiveConnection = "provider=Microsoft.JET.OLEDB.4.0;" & _
"data source=" & STR_BAZA_NAME
' Проверка наличия таблицы в базе
For Each AdoxTbl_TABLE In AdoxCat_TABLE.Tables
If AdoxTbl_TABLE.Name = STR_TABLE_NAME Then
MsgBox "Таблица " & STR_TABLE_NAME & " уже имеется в базе " & STR_BAZA_NAME
End If
Next

GLB_CONNECTION.Execute "SELECT " & STR_TABLE_NAME & ".* INTO " & STR_TABLE_NAME & " IN '" & STR_BAZA_NAME & "' From " & STR_TABLE_NAME & " "

Set AdoxCat_TABLE = Nothing
Set AdoxTbl_TABLE = Nothing

End Function

И все чекбоксы превращаются в 0 и -1
вместо квадратиков
можно это как то поправить????

Я уж молчу, что все каптион полей пропадают и все их описания тожа...........

шъёрт знает что творится

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

================
Правильно Анатолий(Киев) говорит мне - не ищем мы лёгких путей.....и добавляет .....
===============