Private Sub tree_change()
  Dim Key, Text As String
   Dim Nod As Node
   
   TreeView1.ImageList = ImageList1
     Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=ls;Initial Catalog=数据库;Data Source=PC-200701010237"
     Adodc1.RecordSource = "SELECT * FROM 1treeview1"
     Adodc1.Refresh

想通过adodc控件和数据库中的1treeview1表建立连接，从而把表中项目添加到treeview控件中去，已经手动把adodc控件和数据库建立过连接，但每次运行仍会提示“ 用户ls登录失败”（但经检查窗体和数据库的连接是成功的），以及“refresh的‘IAdodc’方法失败”，很费解
有人说删除红色部分，但删除后又显示对象变量未设置。。。
请高手为我解答下！

     Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=ls;Initial Catalog=数据库;Data Source=PC-200701010237"
            '应该加上这一句确定“命令类型”是什么
     Adodc1.RecordSource = "SELECT * FROM 1treeview1"
     Adodc1.Refresh
试下看对不了，