ACCESS2003中Treeview控件如何与数据表连接自动生成树形结构？

ACCESS2003中Treeview控件如何与数据表连接自动生成树形结构？

Private Sub Form_Load()
Dim i As Integer
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECt * FROM 表1;") '以要链接的表建立记录集
If rst.RecordCount = 0 Then MsgBox "表中无数据！程序终止。": Exit Sub '如果链接表无数据
i = 1
rst.MoveFirst '记录首
While Not rst.EOF '循环记录
With Me.TreeView3.Nodes '每循环1条记录添加一个分类
.Add , 4, "K" & i, "" & rst(0) & ""
.Add "K" & i, 4, , "" & rst(1) & ""
.Add "K" & i, 4, , "" & rst(2) & ""
End With
i = i + 1
rst.MoveNext '下一条记录
Wend
End Sub