Problema vincular tablas desde access.

[TitoFlecks]

Hola, necesito ayuda urgente.

Veréis, estoy haciendo un programa en Excel que importa unas tablas de Access al abrir el fichero y luego las desvincula. Me ha funcionado bien pero ahora me da un error extrañísimo al abrirlo y se me descuadra todo el diseño de la página, lo que supone un enorme paso atrás en el programa.

El código que uso para importar la tabla principal:

With Worksheets("Hoja6").ListObjects.Add(SourceType:=0, Source:=Array( _
"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password= """";User ID=Admin;Data Source=C:\Users\TitoFlecks\Dropbox\9. Programa valoraciones 3.0" _
, _
"\Josete\BD_opziona.accdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Je" _
, _
"t OLEDB:Database Password="""";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet O" _
, _
"LEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Data" _
, _
"base=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet O" _
, "LEDB:Support Complex Data=False"), Destination:=Worksheets("Hoja6").Range("$A$8")).Qu eryTable
.CommandType = xlCmdTable
.CommandText = Array("Testigos")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = _
"C:\Users\TitoFlecks\Dropbox\9. Programa valoraciones 3.0\Josete\BD_opziona.accdb"
.ListObject.DisplayName = "Tabla_BD_opziona.accdb"
.Refresh BackgroundQuery:=False
End With
Worksheets("Hoja6").ListObjects("Tabla_BD_opziona. accdb").Unlink

Necesito ayuda, por favor! ¿Qué sucede?