Question

vb程序发生错误，错误提示：连接无法用于执行此操作，在此上下文中它可能已被关闭或无效

程序代码如下：
rs2.Open "select * from Role_Info", DBCnn, adOpenStatic, adLockOptimistic 错误在这一句
If rs2.RecordCount > 0 Then
rs2.MoveFirst
Do While rs2.EOF = False
Combo1.AddItem rs2.Fields("Role_Name")
rs2.MoveNext
Loop
rs2.Close
End If

数据库是sql sever2000 打开了数据表了，不知道问题在哪，求高手指教！！！

Answer 1

用于其他程序，调试过没问题 rs.ActiveConnection = conn rs.Source =

追问

这个加在哪里呢？直接贴进去有语法错误啊~~~