当text1参数发生变化,combo1再次下拉时无法更新,该如何处理

当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

应该怎么改

------解决方案--------------------
怀疑是If .RecordCount > 0 Then这个条件未成立，所以combo1的内容未更新
------解决方案--------------------
你的Text1,是个变量,还是控件名,
还有最好加上这句
If rs.State = 1 Then rs.Close