Access - Error en tiempo de Ejecucion

Hola a tod@s,

Tengo un formulario en el que al entrar me aparece un cuadro combinado con las tablas de la base de datos y en otro cuadro combinado me aparecen las tablas de una base de datos remota. Este el codigo:

Private Sub Form_Load()

Dim BdRemota As DAO.Database
Set BdRemota = OpenDatabase("F:BD_Gestion.mdb")

Me.ListaRemotas.RowSource = DameTablas(BdRemota)
BdRemota.Close
Set BdRemota = Nothing

End Sub

Luego tengo el siguiente modulo con la función DameTablas:

Option Compare Database
Option Explicit

Public VarInforme As String
Public NombreCurso As String

Function DameTablas(BD As DAO.Database) As String
Dim Cadena As String
Dim Tbl As DAO.TableDef
For Each Tbl In BD.TableDefs
If Left(Tbl.Name, 4) <> "MSys" Then
Cadena = Cadena & Tbl.Name & ";"
End If
Next
DameTablas = Cadena
End Function


Ha estado funcionando sin problemas, es decir, me aparecían las tablas de las dos bases de datos. Pero ahora en el cuadro combinado de la base de datos remota no me aparece nada, y cuando carga el form aparece el error en tiempo de ejecución '2176' 'El valor para esta propiedad es demasiado largo'.

Por el mensaje de error entiendo que puede ser problema del numero de tablas que tengo en la base de datos remota, que no puede cargarlas todas. Tengo access 2000, pero en access 2007 funciona ok.

Alguna idea

Gracias y un saludo.