用ComboBox选择后，与数据库绑定的2个Text显示出与ComboBox.Text相应的记录。

Question

用ComboBox选择后，与数据库绑定的2个Text显示出与ComboBox.Text相应的记录。
我是这样做的，
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
End Sub
Private Sub Combo_Click()
  Do Until rs.Fields("ID") = Combo.Text
    rs.MoveNext  <------:系统提示错误处
  Loop
  Text1.Refresh
  Text2.Refresh
End If
但是系统出现错误提示：改变在通知期间取消；没有列被改变
请教如何解决或其他功能相同的办法？？？

Answer 1

这样改一下：
  Rs.MoveFirst
  Do Until Rs.EOF
    If Rs.Fields(0) = Combo1.Text Then
        Exit Do
    End If
    Rs.MoveNext '  <------:系统提示错误处
  Loop

Answer 2

尝试过了，错误仍在而且一样，有没有另外一种的办法？
我的ACCESS的表中只有ID和NOM两个字段，我已经将ID中的所有记录加到COMBOBOX中了，另外的2个TEXT也跟数据库绑定了，想在COMBOBOX的CLICK时TEXT1和TEXT2显示相应的记录。

Answer 3

我这个方法是用代码来做的！
Private Sub Combo_Click()
rs.open"select * from table where ID='" & combo.text & "'",conn,1,2
if not rs.eof then
  Text1.text=rs("ID")
  Text2.text=rs("NOM")
End If