不指定数据源名称,就是内部数据源:
Dim cmd As New SQLCommandcmd.CommandText = "SELECT DISTINCT 省市 From {行政区域}"dt = cmd.ExecuteReadere.Form.Controls("Comboox1").Combolist = dt.GetComboListString("省市")