combo_click小问题，急！！！

Private Sub Combo1_click()
Combo2.Clear
hhhh = "select 景点名称 from 旅游 where 所在城市='" & Combo1.Text & "'"
Data1.RecordSource = hhhh
Data1.Refresh
Do Until Data1.Recordset.EOF
    Combo2.Text = Data1.Recordset.Fields("景点名称")
    If Not Data1.Recordset.EOF Then
    Combo2.AddItem Data1.Recordset.Fields("景点名称")
    Data1.Recordset.MoveNext
    End If
  Loop
End Sub

代码如上，这是两个combo之间的组合问题,点击combo1后combo2只选择性的显示对应的内容。现在的问题是运行的时候，combo1里不能显示出文本，即显示为空白，但程序能够正确执行。不知问题何在，求救各位大虾帮忙！ --------------------编程问答-------------------- combo1里不能显示文本
得把combo1加载的相关代码贴上来 --------------------编程问答-------------------- Private Sub Form_Load()
Show
  Data1.DatabaseName = "ly.MDB"
  Data1.RecordSource = "select distinct 所在城市 from 旅游"
  Data1.Refresh

Do Until Data1.Recordset.EOF
    Combo1.Text = Data1.Recordset.Fields("所在城市")
    If Not Data1.Recordset.EOF Then
    Combo1.AddItem Data1.Recordset.Fields("所在城市")
    Data1.Recordset.MoveNext
    End If

  Loop


  End Sub

form load代码如下，谢谢ls --------------------编程问答-------------------- 单步调试一下 --------------------编程问答-------------------- data1有沒有把數據加載進來,請查証?

if Data1.Recordset.RecordCount>0 then
Do Until Data1.Recordset.EOF
    Data1.Recordset.MoveFirst
    Combo1.Text = Data1.Recordset.Fields("所在城市")
    If Not Data1.Recordset.EOF Then
    Combo1.AddItem Data1.Recordset.Fields("所在城市")
    Data1.Recordset.MoveNext
    End If

  Loop
Else
  MsgBox "沒有數據!",VBOkonly,"提示:"
End If
--------------------编程问答-------------------- 试过了，不是楼上说的问题…… --------------------编程问答-------------------- If Data1.RecordSet.RecordCount>0 then
  Data1.Recordset.MoveFirst
  Do Until Data1.Recordset.EOF
    '你可以在此處設個斷點,跟蹤一下
    Combo1.AddItem Data1.Recordset.Fields("所在城市")
  Data1.Recordset.MoveNext
  Loop
Else
  MsgBox "沒有數據!",VBOkonly,"提示:"
End If
--------------------编程问答-------------------- If Data1.RecordSet.RecordCount>0 then
  Combo1.Clear
  Data1.Recordset.MoveFirst
  Do Until Data1.Recordset.EOF
    '你可以在此處設個斷點,跟蹤一下
    Combo1.AddItem Data1.Recordset.Fields("所在城市")
  Data1.Recordset.MoveNext
  Loop
  Combo1..Text=Combo1.List(0)
Else
  MsgBox "沒有數據!",VBOkonly,"提示:"
End If
--------------------编程问答-------------------- Private Sub Combo1_click()
Combo2.Clear
hhhh = "select 景点名称 from 旅游 where 所在城市='" & Combo1.Text & "'"
Data1.RecordSource = hhhh
Data1.Refresh
Do Until Data1.Recordset.EOF
Combo2.Text = trim(Data1.Recordset.Fields("景点名称"))
If Not Data1.Recordset.EOF Then
Combo2.AddItem trim(Data1.Recordset.Fields("景点名称"))
Data1.Recordset.MoveNext
End If
Loop
End Sub

试试看 --------------------编程问答-------------------- ls的代码是否和我一样？
ls的ls,我是菜鸟，对断点的使用不是很熟……
问题还没解决，但还是谢谢大家了^_^ --------------------编程问答-------------------- 别人给你的代码，你得一步一步调试，看问题出在那里？比如 gxqianqin(會飛) 给的代码，
If Data1.RecordSet.RecordCount>0 then '你断点调试　看recordcount是否大于0，如大于0　再往下看，如不大于0　，说明根本没有查询出数据，combo1当然不会有数据！自己多动动脑子，别总等着别人给现成的
  '''''
Else
  MsgBox "沒有數據!",VBOkonly,"提示:"
End If



--------------------编程问答-------------------- 谢谢ls提点,问题已经解决，不是gxqianqin(會飛)说的那样，我重新添加了一个控件，用相同的语句执行成功了，现在自己纳闷第一个combo出了什么问题…… --------------------编程问答-------------------- 那就請結貼
謝謝......

补充：VB ,  控件