当text1参数发生变化,combo1再次下拉时无法更新

text1参数发生变化时,combo1再次下拉时无法更新,显示的还是原来查询所得的数据
Private Sub Combo1_DropDown()
rs.CursorLocation = adUseClient
With rs
sql = "select name from temp1 where ID='" & Text1 & "'"
  rs.Open sql, cn
  If .RecordCount > 0 Then
  .MoveFirst
  Combo1.Clear
  While Not .EOF
  Combo1.AddItem .Fields("name")
  .MoveNext
  Wend
  End If

  End With
  Set rs = Nothing
End Sub应该怎么改