把外部表放在下拉里
Dim lst As List(Of String)lst = Connections("nwnd").GetTableNames控件.Combolist = String.Join("|", lst.ToArray)
---------------
生成查询条件如 日期 = #2015-07-08#
拼凑一下查询就行啊
"Select * f rom {"& 表名 & "} Where " & 条件