SQL数据库名为CZ
控件名DATACOMBO1
我ADODB把查询结果集合在了DB.
Dim conn As New ADODB.Connection
Dim db As New ADODB.Recordset
Dim com As New ADODB.Command
Dim mmm As String
Dim sql As String
mmm = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=boos1;Data Source=BENQ1"
conn.ConnectionString = mmm
conn.Open mmm
sql = "select * from CZ where 车站代码='" & xxx & "' " 'XXX是我要查询的变量
db.CursorLocation = adUseClient
db.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not db.EOF = True Then
'这里我不会写怎么让DATACOMBO1的下拉列表显示DB的内容
End If
Close db
Close conn
Set db = Nothing
Set conn = Nothing
请高手指点

板主.我是新手.你写的我看不懂.Set DataCombo1.RowSource = Recordset ( Recordset表示什么 )
DataCombo1.ListField = "Col_Name" ("Col_Name"表示什么)
我知道ROWSOURCE 是数据源,listfield是显示下拉列表数据

麻烦各位了.帮帮我吧