关于下拉菜单的问题

1、每次输入订单，检索数据库中的“产品型号”数据表，如果不存在将输入添加到记录中，如果存在不添加。
Do While Not Rs.EOF
If Rs!产品型号=CPXH Then '注意：CPXH是输入时的变量，产品型号是字段
TR="存在"
Exit Do
Else
TR="不存在"
End If
Rs.MoveNext
Loop
IF TR="不存在" Then
Rs.AddNew
Rs!产品型号=CPXH
Rs.Update
End if

2、对下拉菜单，每次程序启动，检索数据库中的“产品型号”数据表，将检索结果添加到下拉菜单中。
Do While Not Rs.EOF
Combo1.AddItem Rs!产品型号
Rs.MoveNext
Loop

至于数据库和数据表的链接你自己添加吧！字段名称和变量名称你可以修改。下拉菜单是VB中的ComboBox控件，如果是其他，你自己修改即可。