ComboBox1.Style:=csDropDownList; ADOConnection1.GetTableNames(ComboBox1.Items, False);还可以在执行：select name from sysobjects where xtype='u' 后遍历，装入即可。
