为何数据库无法打开,该怎么处理

为何数据库无法打开
Private   Sub   listtree()       '用于显示treeview的数据
        TreeView1.Nodes.Clear
        Dim   nodX   As   Node
        Dim   i   As   Integer
        TreeView1.LineStyle   =   tvwRootLines     '   Linestyle   1显示+/-号


opendb
Dim   rsel   As   New   ADODB.Recordset
Dim   sqlel   As   String
Dim   sqlsl   As   String
Dim   sqlsil   As   String

sqlel   =   "select   *   from   elei   where   ylbhao   like   '11 ' "
rsel.Open   sqlel,   Conn,   1,   1
           
While   Not   rsel.EOF
        Set   nodX   =   TreeView1.Nodes.Add(,   ,   "k "   &   rsel.Fields( "elbhao "),   rsel.Fields( "mchen "))
        Dim   rssl   As   New   ADODB.Recordset
        sqlsl   =   "select   *   from   slei   where   elbhao   like   ' "   &   rsel.Fields( "elbhao ")   &   " ' "
        rssl.Open   sqlsl,   Conn,   1,   1
       
        While   Not   rssl.EOF
                Set   nodX   =   TreeView1.Nodes.Add( "k "   &   rsel.Fields( "elbhao "),   tvwChild,   "k "   &   rssl.Fields( "slbhao "),   rssl.Fields( "mchen "))
               
               
               
                Dim   rssil   As   New   ADODB.Recordset
                sqlsil   =   "select   *   from   silei   where   slbhao   like   ' "   &   rssl.Fields( "slbhao ")   &   " ' "
                rssil.Open   sqlsil,   Conn,   1,   1     '此处提示:实时错误 '-2147217887(80040e21) ':

'                 While   Not   rssil.EOF
'                 Set   nodX   =   TreeView1.Nodes.Add( "k "   &   rssil.Fields( "slbhao "),   tvwChild,   "k "   &   rssil.Fields( "silbhao "),   rssil.Fields( "mchen "))
'                 rssil.MoveNext
'                 Wend
               
               
               
               
                rssl.MoveNext
        Wend
        rssl.Close
        rsel.MoveNext