1、首先建立一个数据库，名字为shiyan 完整的数据库名字为shiyan.mdb 在里面建一个表，名字为genjiediantable01并设计表，添加两个字段分为：1、字段名称：id 数据属性：自动编号，2、数据属性：gjdmz 文本 如下图：
2、把这个数据库放在E盘下，视个人情况而定，关键是这个数据库所在的路径
3、打开VS.2005 在设计区添加treeview控件,默认名字为treeview1 如下图
4、点击项目——引用——COM 添加 如下图：
5、在控件上点击右键选择查看代码：并输入代码如下图：
Public Class Form1
Dim myconnection As New OleDb.OleDbConnection()
Dim MyAdapater As New OleDb.OleDbDataAdapter()
Dim mycommand As New OleDb.OleDbCommand()
Dim ds As New DataSet()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
myconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\shiyan.mdb"
mycommand.CommandText = "select id,gjdmz from genjiediantable01"
mycommand.Connection = myconnection
Try
myconnection.Close()
myconnection.Open()
Dim mysqlreader As OleDb.OleDbDataReader = mycommand.ExecuteReader
TreeView1.Nodes.Clear()
While mysqlreader.Read()
Dim tree_root As New TreeNode()
tree_root.Tag = mysqlreader.GetValue(0)
tree_root.Text = mysqlreader.GetString(1)
TreeView1.Nodes.Add(tree_root)
End While
Finally
myconnection.Close()
End Try
TreeView1.ExpandAll()
TreeView1.Select()
End Sub
End Class
F5 运行调试出现下图
代码分析：全文的精华
1、定义公用变量
Dim myconnection As New OleDb.OleDbConnection() ‘连接Access数据库，则可以使用OleDB来实现。定义一个数据库连接，表示到数据源的连接是打开的。
Dim ds As New DataSet() 定义一个数据集，与数据库的表相对应
Dim MyAdapater As New OleDb.OleDbDataAdapter() 定义一个数据库接口 相关内容在
Dim mycommand As New OleDb.OleDbCommand() ’定义数据库连接命令
明天再分析，有点累了！
接着昨天的分析
myconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\shiyan.mdb" '数据库连接字串
mycommand.CommandText = "select id,gjdmz from genjiediantable01" ’数据库连接命令 意思是在表中genjiediantable01中查询所有根结点的编号和名称，对应的是id,gjdmz 两个字段
mycommand.Connection = myconnection 连接数据库并执行相关的命令
Try
myconnection.Close() ‘关闭到数据源的连接
myconnection.Open()’连接池中提取一个打开的连接（如果有可用的连接）。否则，它就建立一个到数据源的新连接
Dim mysqlreader As OleDb.OleDbDataReader = mycommand.ExecuteReader ‘将 CommandText 发送到 Connection 并生成一个 OleDbDataReader。
TreeView1.Nodes.Clear()
While mysqlreader.Read()‘OleDbDataReader 的默认位置在第一条记录前面。因此，必须调用 Read 来开始访问任何数据
Dim tree_root As New TreeNode()’ 定义一个表示 TreeView 控件中的节点。
tree_root.Tag = mysqlreader.GetValue(0)‘把编号放入tag中
tree_root.Text = mysqlreader.GetString(1)’树上显示的是根节点名称gjdmz
TreeView1.Nodes.Add(tree_root)
End While
Finally
myconnection.Close()
End Try ‘Try...Catch...Finally 语句 (Visual Basic)
TreeView1.ExpandAll() '打开树中的每个节点
TreeView1.Select() '选择 TreeView