vb6.0datacombo控件内容不显示

大虾们：最近我用VB在做个小程序，就是用DataCombo1控件实现调用SQL数据库clientdocu表中的clienname字段。现在我单击DataCombo1控件后，下拉框中没有内容显示。数据库连接是没有问题的，因为我用Printcomp1(0).Value,comp1(1).Value是可以看到结果的。源代码如下：PrivateSubDataCombo1_Click(AreaAsInteger)login.DBconnect.Opencompsqlstr="selectcliecode,clienamefromclientdocu"comp1.Opencompsqlstr,logi