怎么样把一个字段中的所有数据添加到datacombo或者是dbcombo中

Question

绑定,将此字段绑定到datacombo或者是dbcombo上.

Answer 1

用数据绑定：
dbcombo.datasource=记录集
dbcombo.datafield=字段

Answer 2

Dim cnn As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Form_Load()
  Set cnn = New ADODB.Connection
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\Program Files\Microsoft Visual Studio\VB98\集邮\邮票.mdb;Persist Security Info=False;Jet OLEDB:Database Password=zcb"
  cnn.CursorLocation = adUseClient
  Set rs = New ADODB.Recordset
  rs.Open "邮票基本信息表", cnn, adOpenKeyset, adLockOptimistic
  Set DataGrid1.DataSource = rs
  Set DataCombo1.DataSource = rs
  Set DataCombo1.RowSource = rs
  DataCombo1.ListField = "套票名称"
End Sub