主要问题在于表jr_cl_bm_cpk_1中字段CPXH里有部分数据为空（Null)，这样就造成了程序运行时出现类型不匹配的错误。
还有一个问题就是TreeView集合中的关键字不唯一（主要问题也是因为没有把数据库中的数据处理好）
问题主要集中于这段代码，我已经帮你修改了，不知道能否满足你的要求：
Public Sub Tree_change()
  Dim key, Text, BH, StrTemp As String
  Dim Node1 As Node             '定义一个节点变量
  Dim node2 As Node
  Dim i As Integer
  Dim j As Integer
  Adodc1。
  RecordSource = "select * from JR_CL_BM_CPLB "
  Adodc1。Refresh
     If Adodc1。Recordset。RecordCount > 0 Then
        Adodc1。
  Recordset。MoveFirst
          Do While Adodc1。Recordset。EOF = False                 '循环读取第1层节点中的数据信息
            key = "A_" & i
            Text = Adodc1。
  Recordset。Fields("CPMC")
            StrTemp = Adodc1。Recordset。Fields("CPMC")
            Set Node1 = TreeView1。Nodes。
  Add(, tvwChild, key, Text, 0)  '给第1层节点赋与数值
            i = i + 1
                       Adodc2。RecordSource = "select * from jr_cl_bm_cpk_1 where CPMC='" + StrTemp + "' "
                       Adodc2。
  Refresh
                            If Adodc2。Recordset。RecordCount > 0 Then
                            Adodc2。Recordset。
  MoveFirst
                                Do While Adodc2。Recordset。EOF = False        '循环读取第2层节点中的数据信息
                                    key = "B_" & Trim(Str(j))
                                    Text = Adodc2。
  Recordset。Fields("CPXH")
                                    If Not IsNull(Text) Then
                                    Set node2 = TreeView1。
  Nodes。Add(Node1。Index, tvwChild, key, Text, 0)   '给第2层节点赋与数值
                                    j = j + 1
                                    End If
                                    Adodc2。
  Recordset。MoveNext
                                Loop
                            Else
                            End If
            Adodc1。
  Recordset。MoveNext
          Loop
     Else
     End If
End Sub。