Access - Combos / Tablas

Buenas,

como puedo realizar un combo que muestre el listado de tablas de mi BD?

Gracias!

Rick

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