从Excel获得的数据换成从Assecc数据库获得数据

老鬼公公_31

把下面代码从Excel获得的数据换成从Assecc数据库获得数据，求老师帮帮忙

Private Sub UserForm_Initialize() '使用此段程序，必须在VBE中先加载"Micerosoft TreeView Conntrol,version6.0"控件。
Dim d As New Dictionary '建立字典
Dim i, j, r, c As Integer
Dim ws As Worksheet
Dim nodex As Node

With TreeView1 '设置TreeView控件属性
  .Nodes.Clear
  .Style = 6
  .LineStyle = 1
End With
Set ws = Worksheets("sheet1")
r = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a2:d" & r)
n = 0
For i = 1 To UBound(arr)
  If Not d.Exists(arr(i, 1)) Then
  Set d(arr(i, 1)) = CreateObject("scripting.dictionary") '一级字典嵌套
  End If
  If Not d(arr(i, 1)).Exists(arr(i, 2)) Then
  Set d(arr(i, 1))(arr(i, 2)) = CreateObject("scripting.dictionary") '二级字典嵌套
  End If
  If Not d(arr(i, 1))(arr(i, 2)).Exists(arr(i, 3)) Then
  Set d(arr(i, 1))(arr(i, 2))(arr(i, 3)) = CreateObject("scripting.dictionary") '三级字典嵌套
  End If
  If Not d(arr(i, 1))(arr(i, 2))(arr(i, 3)).Exists((arr(i, 4))) Then
  Set d(arr(i, 1))(arr(i, 2))(arr(i, 3))(arr(i, 4)) = CreateObject("scripting.dictionary") '四级字典嵌套
  End If
Next
TreeView1.Nodes.Clear
Set nodex = TreeView1.Nodes.Add(, , "乡镇", "乡镇") '添加根节点
For Each aa In d.Keys ‘在一级关键字中集合中循环
  i = i + 1
  Set nodex = TreeView1.Nodes.Add("乡镇", tvwChild, aa & i, aa) '添加二级节点
  For Each bb In d(aa).Keys ‘在二级关键字集合中循环
  j = j + 1
  Set nodex = TreeView1.Nodes.Add(aa & i, tvwChild, bb & j, bb) '添加三级节点
  For Each cc In d(aa)(bb).Keys‘在字典关键字集合中循环
  k = k + 1
  Set nodex = TreeView1.Nodes.Add(bb & j, tvwChild, cc & k, cc) '添加四级节点
  For Each dd In d(aa)(bb)(cc).Keys ‘在l字典关键字集合中循环
    l = l + 1
    Set nodex = TreeView1.Nodes.Add(cc & k, tvwChild, dd & l, dd) '添加五级节点
  Next
  Next
  Next
Next
End Sub

oscarwmf

没附件，没数据库怎么帮