标题：如何获取项目中所有表的表名

如题，将项目中的所有表表名加载到下拉列中来。如何做到

Dim s As string

For Each dt As DataTable In DataTables

    s+ = "|" & dt.Name

Next

Forms("窗口1").Controls("ComboBox1").ComboList = s