求解：在VB2005中如何把treeview的内容保存到数据库里，并且可以还原读出重新生成treeview

求解：在VB2005中怎么把treeview的内容保存到数据库里，并且可以还原读出重新生成treeview?
求解：在VB2005中怎么把treeview的内容保存到数据库里，并且可以还原读出重新生成treeview?

------解决方案--------------------
Private Sub treenodejiazai()

'加载行业===========================================
Dim objConn As New OleDb.OleDbConnection
Dim objComm As New OleDb.OleDbCommand
Dim objda As New OleDb.OleDbDataAdapter
Dim objds As New DataSet
Dim i As Integer

objConn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source= " + IO.Directory.GetCurrentDirectory + "\data\myclient.mdb; " & "Jet OLEDB:database Password= " & psd
objComm.CommandText = "select * from 行业 " ' where 自动号=1 "
objComm.Connection = objConn
objda.SelectCommand = objComm
objConn.Open()
objda.Fill(objds, "行业 ")
objConn.Close()

Me.TreeView1.ImageList = ImageList3
Me.TreeView1.SelectedImageIndex = 3
Me.TreeView1.ImageIndex = 0

Me.TreeView1.Nodes.Clear()

Dim addnode0 As New TreeNode
addnode0.Tag = 0
addnode0.Text = "客户列表 "
addnode0.ImageIndex = 1
addnode0.SelectedImageIndex = 1
Me.TreeView1.Nodes.Add(addnode0)

For i = 0 To objds.Tables(0).Rows.Count - 1
id = Val(objds.Tables(0).Rows(i)(1))
Dim hy As String = objds.Tables(0).Rows(i)(2)
Dim owntag As Integer = Val(objds.Tables(0).Rows(i)(0))

traverse(TreeView1.Nodes)
Dim addnode As New TreeNode
addnode.Tag = owntag
addnode.Text = hy

If TreeView1.GetNodeCount(False) > 0 Then
If id = 0 Then
addnode.ImageIndex = 2
addnode.SelectedImageIndex = 2
Else
addnode.ImageIndex = 0
'addnode.SelectedImageIndex = 0
End If
Me.TreeView1.SelectedNode.Nodes.Add(addnode)
Else
addnode.ImageIndex = 1
addnode.SelectedImageIndex = 1
TreeView1.Nodes.Add(addnode)

End If
Next i

'加载客户类型===========================================

Dim objConn1 As New OleDb.OleDbConnection
Dim objComm1 As New OleDb.OleDbCommand
Dim objda1 As New OleDb.OleDbDataAdapter
Dim objds1 As New DataSet
objConn1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source= " + IO.Directory.GetCurrentDirectory + "\data\myclient.mdb; " & "Jet OLEDB:database Password= " & psd
objComm1.CommandText = "select * from 客户类型 " ' where 自动号=1 "
objComm1.Connection = objConn1
objda1.SelectCommand = objComm1
objConn1.Open()
objds1.Clear()
objda1.Fill(objds1, "客户类型 ")
objConn1.Close()

Dim khlxnode As New TreeNode
khlxnode.Tag = 500
khlxnode.Text = "客户类型 "
khlxnode.ImageIndex = 2
khlxnode.SelectedImageIndex = 2
Me.TreeView1.Nodes(0).Nodes.Add(khlxnode)

For i = 0 To objds1.Tables(0).Rows.Count - 1
Dim kllxson As New TreeNode
kllxson.Tag = 501 + i
kllxson.Text = objds1.Tables(0).Rows(i)(1)
kllxson.ImageIndex = 0