vb 6.0datacombo控件内容不显示

大虾们： 最近我用VB在做个小程序，就是用DataCombo1控件实现调用SQL数据库clientdocu表中的clienname字段。现在我单击DataCombo1控件后，下拉框中没有内容显示。 数据库连接是没有问题的，因为我用Print comp1(0).Value, comp1(1).Value是可以看到结果的。 源代码如下： Private Sub DataCombo1_Click(Area As Integer) login.DBconnect.Open compsqlstr = "select cliecode,cliename from clientdocu" comp1.Open compsqlstr, login.DBconnect, adOpenKeyset, adLockOptimistic Print comp1(0).Value, comp1(1).Value Set DataCombo1.DataSource = comp1 DataCombo1.DataField = cliename Set DataCombo1.RowSource = comp1 DataCombo1.ListField = cliename DataCombo1.BoundColumn = cliecode comp1.Close login.DBconnect.Close End Sub 还请大虾们看看，我哪地方出错呢。谢谢