我希望能在combo box里面手动输入下列列表的内容，以不断向数据库增加新的内容，但是关闭程序再执行的时候下拉列表还是显示原来手动输入的几项，下面是增加item的语句，高人帮我看看该怎么修改
thisform.业态.AddItem(thisform.业态.text)

另外我想做两个combo box联动，就是combo1选中一项后，combo2里的内容根据combo1的选择来变化，而且combo1，combo2都能输入新的项并保存到下次程序使用，不知道能不能实现。

新人没分，不好意思

要想下次启动时还要使用，只能新增项后判断不空、不重复后，用replace ……命令将其保存在表的相应字段中。

谢谢斑竹，还是没理解。我的replace只能增加记录，我在不用判断重复的情况下直接用，还是没能保存到combo列表中，不知道是不是写错了
GO bottom
    APPEND BLANK
    replace 品牌商家.商家名 WITH thisform.商家名.Value
    replace 品牌商家.业态 WITH thisform.业态.Text
    replace 品牌商家.业种 WITH thisform.业种.Value
    replace 品牌商家.星级 WITH thisform.星级.Value
    replace 品牌商家.选址要求 WITH thisform.商家选址.Value
    thisform.商家列表.recordsource=Null
    thisform.商家列表.recordsource='品牌商家'

建議樓主用一個表來作combo的數據源,新增的選項就保存在表中.