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

https://bbs.bccn.net/viewthread.php?tid=385627&page=1#pid2177400
这是一个相关的问题！我回答过的帖子有相关代码你参考一下

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
接下来就不知道怎么弄了

Private Sub Combo1_Click()
  List1.Clear
    If cn.State = adStateOpen Then cn.Close
    If rs.State = adStateOpen Then rs.Close
    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
'下面我没改你自己参考一下改改吧！
    If rs.RecordCount > 0 Then
       While Not rs.EOF
          If rs.Fields(Combo1.Text) <> "" Then
             Combo2.AddItem rs.Fields(Combo1.Text) & ""
          End If
             rs.MoveNext
        Wend
    End If
    If Combo2.List(0) <> "" Then
        Combo2.Text = Combo2.List(0)
    End If
End Sub

看看那个错了，是这个
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的内容发生改变

就是把上面半段就是查询你选中的那个编号。通过编号查询，得到与编号相应的记录，
然后把相应的值也就是如下
如果你上面的表格就是这样的话
rs中就包含了你查到的记录的两个数据
rs.Fields("ID") & ""
和
rs.Fields("WarePosCode") & ""
两个值，你把需要的那个值写到相应的textbox中去
比如：text1.text=rs.Fields("WarePosCode") & ""
其他都差不多

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