When the text1 parameter changes, combo1 cannot be updated when it is pulled down again

f359742154

When the text1 parameter changes, combo1 cannot be updated when it is pulled down again, and the data displayed is the original query data
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

How to change

yoh2006

It is suspected that the condition of If .RecordCount> 0 Then is not established, so the content of combo1 is not updated

zfight

Your Text1, is it a variable or a control name,
It's better to add this sentence
If rs.State = 1 Then rs.Close