Question

vb combobox点击事件

Private Sub Combo3_Click()
If Combo3.ListIndex Then
SQL = "select * from mybook where 类别 like '" & Combo3.Text & "%' "
rs.CursorLocation = adUseClient
rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
zsl = rs.RecordCount
l = rs.Fields.Count
End If

选择一个后再选第二个就说：对像打开时不充许操作。。。。。请问该怎么解决！

加了Set rs = Nothing也不行
我用combo查询数据然后在datagrid显示数据，点击datagrid某行数据并加载到各个text控件中！

Answer 1

if rs.state=1 then
rs.close
end if

加在执行语句前边就行

Answer 2

rs.close

Answer 3

Rs.Close
Conn.Close

Answer 4

知道打开怎么就不知道关闭呢。。。

rs.close