有一个文本框,一个列表框,列表框与数据库一个字段绑定,要求文本框文字改变时,列表框第一行总是现示文本框对应的内容

假如文本框为Text1
可以在文本框的change事件中加入
下面的代码

[code:b32364321f]
Private Sub Text1_Change()
    Combo1.Text = Text1.Text
End Sub
[/code:b32364321f]

或是将 Combo1的Style属性设置为1，然后你将 Combo1高度拉大，你会看到你想要的效果。