VB开发 用户管理模块 实时异常 30023

VB开发 用户管理模块 实时错误 30023
以下是一段“添加删除用户的代码”当选择用户的时候就出现问题。在Set   DelUser_Grid.DataSource   =   MyDelUser.rs1处报错，系统提示   实时错误 '30023 '   不能访问数据。数据源设置可能不正确或者数据源的功能有限。  

我确信代码没问题，是不是控件属性或者SQL有什么地方没有设置好。请赐教！！！  


Private   Sub   Form_Load()  
Set   MyDelUser   =   New   OpenRs  
Call   UserTree  
DelUser_Grid.FormatString   =   "|用户编号|用户名|用户级别|   用户描述 "  
End   Sub  

Private   Sub   TreeView1_NodeClick(ByVal   Node   As   MSComctlLib.Node)  
Dim   sql2   As   String  
sql2   =   "select   user_id,user_name,user_level,user_des   from   user_info   where   user_id= ' "   &   Node.Text   &   " ' "  
MyDelUser.rsDK1   sql2  
If   MyDelUser.rs1.EOF   Then  
DelUser_Grid.Clear  
DelUser_Grid.FormatString   =   "|用户编号|用户名|用户级别|   用户描述 "  
cmdDelUser.Enabled   =   False  
Else  
Set   DelUser_Grid.DataSource   =   MyDelUser.rs1  
DelUser_Grid.FormatString   =   "|用户编号|用户名|用户级别|   用户描述 "  
cmdDelUser.Enabled   =   True  
End   If  
End   Sub


[解决办法]
帮你顶一下！
[解决办法]
调试跟踪一下
[解决办法]
我不太明白你的这个过程，但我觉得，再次执行sql2 的时候是不是应该有关闭的动作呢？