datacombo控键的问题！

Question

datacombo已经连好数据库了！但让它显示时怎么显示不了？！求救！
以下是代码！Set conn1 = New ADODB.Connection
conn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Hospital\data\门诊信息系统数据库1.mdb;Persist Security Info=False"
conn1.OpenSet record1 = New ADODB.Recordset
record1.Open "select distinct 病案号 from 临时药品信息", conn1, adOpenDynamic, adLockOptimisticSet DataCombo1.DataSource = record1
Set DataCombo1.RowSource = record1DataCombo1.BoundColumn = "病案号"DataCombo1.DataField = "病案号"DataCombo1.ListField = "病案号"大家帮我看看！谢谢啦！

Answer 1

DataCombo1.text = "病案号"
最后面加上上句试试

Answer 2

Set DataCombo1.RowSource = record1DataCombo1.BoundColumn = "病案号"DataCombo1.DataField = "病案号"这几句好像没什么用

Answer 3

已经可以把数据读出来，但在datacombo里只显示第一条数据，为什么呢？
如果改用adodc控键连接然后只改动以上datacombo的这些属性就可以照常显示了！但换成语言的就用不了！

Answer 4

Dim sql
conn.Open DataConnectString1
sql = "select Bom单 from BOM单名称 group by BOM单"
rs.Open sql, conn, adOpenDynamic, adLockOptimistic
Set DataCombo1.RowSource = rs.DataSource
DataCombo1.ListField = "BOM单"
DataCombo1.Text = rs.Fields("BOM单")这是我的程序，能正常显示，你把他改一下用控件连接的试试！

Answer 5

还不可以！但是算了，用控键做的！你还知道datalist的显示吗？也是一样的问题，用控键做可以，但写的就不行！