大致是这样的，我已经用组合框显示数据库表的ID项，现在我想做的是：当选中不同的ID时，相应的文本框（WarePosCode）内容随着改变
如ID  WarePosCode
  11   Pos033
  12   Pos012
怎么实现啊？？？？

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connstr As String
Dim sql As String
connstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=PT_AS_DB;Data Source=ouyang-c19a8722."
conn.ConnectionString = connstr
conn.Open connstr
sql = "select * from WarehouseStockDetail "
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenDynamic, adLockPessimistic

Do While Not rs.EOF And Not rs.BOF
Combo1.AddItem (rs.Fields(1))
List1.AddItem (rs.Fields(1))
rs.MoveNext
Loop
接下来就不知道怎么弄了

看看那个错了，是这个
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connstr As String
Dim sql As String
connstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=PT_AS_DB;Data Source=ouyang-c19a8722."
conn.ConnectionString = connstr
conn.Open connstr
sql = "select * from WarehouseStockDetail "
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenDynamic, adLockPessimistic

Do While Not rs.EOF And Not rs.BOF
Combo1.AddItem (rs.Fields(1))
rs.MoveNext
Loop
接下来是，我选中组合框的某个下拉项，相应的textbox的内容发生改变

搞定了，谢谢哈，原来是读取数据库字段那里出了点问题