Finalmente ci sono riuscito in questo modo:
1 Ho tolto le Password dei Database di Access
2 Trasferito tabella
3 Reinserito le Password

Che ne pensate? c'è una via più breve?

code:
'ELIMINA PASSWORD
Private Sub elimina_password()
Dim strConnect As String
strConnect = ";DATABASE=" & "C:\DB.mdb" & _
";PWD=XXXX"

' Open in exclusive mode with existing password, if any
Set db = OpenDatabase("", True, False, strConnect)

' ELIMINA password
db.NewPassword "XXXX", ""

Dim strConnect2 As String
strConnect2 = ";DATABASE=" & "C:\DB_Inizio.mdb" & _
";PWD=XXXX"

' Open in exclusive mode with existing password, if any
Set db = OpenDatabase("", True, False, strConnect2)

' ELIMINA password
db.NewPassword "XXXX", ""
MsgBox "DATABASE SENZA PASSWORD"
End Sub


'COPIA ED INCOLLA TABELLA
Private Sub Trasferisci_Tabella_Click()
elimina_password
'INIZIA COPIA ED INCOLLA TABELLA
On Error GoTo ESISTE
Dim sPathInizio As String
Dim sPathFinale As String
sPathInizio = "C:\DB_INIZIO.mdb" ' Il DB di partenza
sPathFinale = "C:\DB.mdb" ' Il DB dove aggiungere la tabella
Set Connessione = New adodb.Connection
Connessione.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPathInizio & ";Persist Security Info=False"

Connessione.Execute "SELECT * INTO Tabella_new IN " & Chr$(34) & sPathFinale & Chr$(34) & "FROM Tabella"

Connessione.Close
Dim ok As Integer

ESISTE:
If Err Then
Resume Next
inserisci_Password
Exit Sub
'MsgBox ("TABELLA GIA ESISTENTE")
Else
ok = MsgBox("DATABASE AGGIORNATO")
End If
inserisci_Password
Command4.Visible = False
cmd_OK.Visible = True
End Sub


'RIPRISTINA PASSWORD
Private Sub inserisci_Password()
strConnect = ";DATABASE=" & "C:\DB.mdb" & _
";PWD="
' Open in exclusive mode with existing password, if any
Set db = OpenDatabase("", True, False, strConnect)

' INSERISCI password
db.NewPassword "", "XXXX"

'Dim strConnect2 As String
strConnect2 = ";DATABASE=" & "C:\DB_Inizio.mdb" & _
";PWD="

' Open in exclusive mode with existing password, if any
Set db2 = OpenDatabase("", True, False, strConnect2)

' INSERISCI password
db2.NewPassword "", "XXXX"

MsgBox "DATABASE CON PASSWORD"
End Sub

Ciao Ciao