Public Function MisTablas(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
            Dim midb As DAO.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*" 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
            ValRetorno = Timer
        Case LB_GETROWCOUNT
            ValRetorno = entradas
        Case LB_GETCOLUMNCOUNT
            ValRetorno = 1
        Case LB_GETCOLUMNWIDTH
            ValRetorno = -1
        Case LB_GETVALUE
            ValRetorno = dbs(fila)
        Case LB_END
            For entradas = 0 To 127
                dbs(entradas) = ""
            Next
    End Select
    MisTablas = ValRetorno
End Function

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)