Utiliza este codigo
Private Function ListaTablas(Campo As Control, Id As Long, fila As Long, col As Long, código As Integer)
Dim DescuentA As Integer, zx As Integer
Static dbs(127), Entradas
Dim ValRetorno
ValRetorno = Null
Select Case código
Case LB_INITIALIZE 'Inicializar.
Dim MIDB As Database, micontenedor As Container
Set MIDB = CurrentDb()
Entradas = MIDB.TableDefs.Count
DescuentA = 0
For zx = 0 To Entradas - 1
If (MIDB.TableDefs(zx).Attributes And DB_SYSTEMOBJECT) Or MIDB.TableDefs(zx).Name Like "MSys*" Or MIDB.TableDefs(zx).Name = "personalizacionx" Or MIDB.TableDefs(zx).Name = "festivos" Or MIDB.TableDefs(zx).Name = "ReporteImpresora" Then
DescuentA = DescuentA + 1
Else
dbs(zx - DescuentA) = MIDB.TableDefs(zx).Name
End If
Next zx
Entradas = Entradas - DescuentA
ValRetorno = Entradas
MIDB.Close
Set MIDB = Nothing
Case LB_OPEN 'Abrir.
ValRetorno = Timer 'ID único para control.
Case LB_GETROWCOUNT 'Número de filas.
ValRetorno = Entradas
Case LB_GETCOLUMNCOUNT 'Número de columnas.
ValRetorno = 1
Case LB_GETCOLUMNWIDTH 'Anchura de columna.
ValRetorno = -1 'Usar la anchura predeterminada.
Case LB_GETVALUE 'Obtener los datos.
ValRetorno = dbs(fila)
Case LB_END 'Terminar
For Entradas = 0 To 127
dbs(Entradas) = ""
Next
End Select
ListaTablas = ValRetorno
End Function
Un Saludo
Desde Venezuela
Jefferson
