其础问题,送分!!各位!!快进来领了....过了就没了....

现有一控件.combo1,其中里
面有数据是怎么加入的???<即下拉有很多个项目>
你们看看这代码.各位知道是怎么加入的吗???
Private Sub Command1_Click()
Dim intx As Integer
Dim rsttui As ADODB.Recordset
Dim rsttui_temp As ADODB.Recordset
Dim cnntui As ADODB.Connection
Dim cnntui_temp As ADODB.ConnectionDim conblacklist As ADODB.Connection
Dim rstblacklist As ADODB.Recordset
Dim strrstblacklist As String
Dim strconblacklist As String
Dim strmsg As StringDim strcnntui As String
Dim strcnntui_temp As String
Dim strsqltui As String
Dim strsqltui_temp As String
Dim strsqljkzl As String
Dim strtext As String
Dim dianshu_sum, dianshu1, dianshu2, dianshu3, dianshu4 As SingleIf Len(Text1.Text) <> 13 Then
    MsgBox "卡号应为13位!"
    Text1.SetFocus
    Exit Sub
End IfIf Not IsNumeric(Text1.Text) Then
    MsgBox "请输入数字!"
    Text1.SetFocus
    Exit Sub
End If'If Left(Text1.Text, 1) <> "4" Then
'    MsgBox "对不起，该卡请在太平洋领取赠品！"
'    Text1.SetFocus
'    Exit Sub
'End If
'----------------------------------------
'查询是否已经列入黑名单
'----------------------------------------
Set conblacklist = New ADODB.Connection
Set rstblacklist = New ADODB.Recordset
strconblacklist = "provider=sqloledb;server=lynt1;uid=jk;pwd=jksuper;database=jk"
conblacklist.Open strconblacklist
strrstblacklist = "select * from blacklist where vip_no='" & Text1.Text & "'"
rstblacklist.Open strrstblacklist, conblacklist, adOpenKeyset, adLockOptimistic
If rstblacklist.EOF <> True Then
    strmsg = "对不起，该卡已经" & rstblacklist.Fields("dept")
    MsgBox strmsg
    rstblacklist.Close
    conblacklist.Close
    Exit Sub
End Ifrstblacklist.Close
strrstblacklist = "select * from blacklist_x where vip_no='" & Text1.Text & "'"
rstblacklist.Open strrstblacklist, conblacklist, adOpenKeyset, adLockOptimistic
If rstblacklist.EOF <> True Then
    strmsg = "对不起，该卡已经" & rstblacklist.Fields("dept")
    MsgBox strmsg
    rstblacklist.Close
    conblacklist.Close
    Exit Sub
End Ifrstblacklist.Close
conblacklist.Close'-----------------------------------------strtext = Trim(Text1.Text)'strsqljkzl = "select * from jkzl where code='" & strtext & "'"
'Adodcjkzl.RecordSource = strsqljkzl
'Adodcjkzl.Refresh'If Adodcjkzl.Recordset.EOF = True Then
 '   MsgBox "无此贵宾卡记录!"
  '  Text1.SetFocus
   ' Exit Sub
'End Ifstrsql1 = "select vip_no,sum(dianshu) as dianshu_sum1 from td where vip_no='" & strtext & "' group by vip_no"
strsql2 = "select vip_no,sum(dianshu) as dianshu_sum2 from tui where vip_no='" & strtext & "' group by vip_no"
strsql3 = "select vip_no,sum(dianshu) as dianshu_sum3 from td_x where vip_no='" & strtext & "' group by vip_no"
strsql4 = "select vip_no,sum(dianshu) as dianshu_sum4 from tui_x where vip_no='" & strtext & "' group by vip_no"Adodctd.RecordSource = strsql1
Adodctd.Refresh
Adodctui.RecordSource = strsql2
Adodctui.Refresh
Adodctd_x.RecordSource = strsql3
Adodctd_x.Refresh
Adodctui_x.RecordSource = strsql4
Adodctui_x.Refresh
If Adodctd.Recordset.EOF <> True Then
    dianshu1 = Adodctd.Recordset.Fields("dianshu_sum1")
Else
    dianshu1 = 0                '说明没有此卡号的积分记录
End IfIf Adodctui.Recordset.EOF <> True Then
    dianshu2 = Adodctui.Recordset.Fields("dianshu_sum2")
Else
    dianshu2 = 0                '说明没有此卡号退货的积分记录
End IfIf Adodctd_x.Recordset.EOF <> True Then
    dianshu3 = Adodctd_x.Recordset.Fields("dianshu_sum3")
Else
    dianshu3 = 0                '说明没有解放碑店此卡号的积分记录
End IfIf Adodctui_x.Recordset.EOF <> True Then
    dianshu4 = Adodctui_x.Recordset.Fields("dianshu_sum4")
Else
    dianshu4 = 0                '说明没有解放碑店此卡号退货的积分记录
End Ifdianshu_sum = dianshu1 + dianshu2 + dianshu3 + dianshu4If dianshu_sum - Combo1 < 0 Then
    MsgBox ("对不起!您的积分不足,不能领取该级别赠品!")
    Exit Sub
End IfIf MsgBox("礼品一经送出,概不退换,是否确认?", vbOKCancel, "确认") = vbCancel Then
    Exit Sub
End Ifintx = 0 - Combo1               '将相应的积分等级变为负数Set cnntui = New ADODB.Connection
Set cnntui_temp = New ADODB.Connection
Set rsttui = New ADODB.Recordset
Set rsttui_temp = New ADODB.Recordsetstrcnntui = "provider=sqloledb;server=lynt1;uid=jk;pwd=jksuper;database=jk"
strcnntui_temp = "provider=sqloledb;server=lynt4;uid=cq;pwd=;database=jk"
strsqltui = "select * from tui"
strsqltui_temp = "select * from tui_temp"cnntui.Open strcnntui
cnntui_temp.Open strcnntui_temprsttui.Open strsqltui, cnntui, adOpenKeyset, adLockOptimistic
rsttui_temp.Open strsqltui_temp, cnntui_temp, adOpenKeyset, adLockOptimisticrsttui.AddNew
rsttui.Fields("vip_no") = strtext
rsttui.Fields("machine_no") = "000"
rsttui.Fields("plu_no") = "000000"
rsttui.Fields("jine") = 0
rsttui.Fields("dianshu") = intx
rsttui.Fields("date") = Date
rsttui.Fields("type") = "返礼"
rsttui.Fields("shop_no") = "002"
rsttui.Update
rsttui.Close
cnntui.Closersttui_temp.AddNew
rsttui_temp.Fields("vip_no") = strtext
rsttui_temp.Fields("machine_no") = "000"
rsttui_temp.Fields("plu_no") = "000000"
rsttui_temp.Fields("jine") = 0
rsttui_temp.Fields("dianshu") = intx
rsttui_temp.Fields("date") = Date
rsttui_temp.Fields("type") = "返礼"
rsttui_temp.Fields("shop_no") = "002"
rsttui_temp.Update
rsttui_temp.Close
cnntui_temp.Close
MsgBox "恭喜您!返礼成功!"
Text1.Text = ""
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Load()
''Combo1.ListIndex = 0
End Sub
          这是整个程序的各层代码!!!你们能找出是哪儿加入COMBO1些控件的数据吗????