换一台电脑以后，access 出现对象不支持该属性或者方法，在原来电脑上没有问题。

Private Sub Form_Load()
DoCmd.Maximize
Dim img As ListImages, TVW As Node, KD, FD, GD, MC As String, a, I%

    Dim xjb As ADODB.Connection '定义Connection对象
    Set xjb = CurrentProject.Connection '建立与当前数据库的连接
    Dim rs As ADODB.Recordset '申明Recordset对象
    Set rs = New ADODB.Recordset '创建Recordset对象
    rs.LockType = adLockPessimistic
    rs.Open "table_tvw", xjb, , , adCmdTable
    '=============================================
    rs.MoveFirst
    Do While Not rs.EOF
    'On Error Resume Next
    I = I + 1
        Set img = Me.imagelist2.ListImages.add(I, rs!IMGID, LoadPicture("D:\MLLZSJMB\icons\" & rs!IMGID & ".ico"))'（在这一句会出现对象不支持该属性或者方法）
    rs.MoveNext
    Loop
    '=============================================
        Set Me.treeview3.ImageList = Me.imagelist2.Object
    '=============================================
        rs.MoveFirst
        Do While Not rs.EOF
        KD = rs!KID
        FD = rs!FID
        GD = rs!IMGID
        MC = rs!名称
        If rs!KID <> rs!FID Then
        Set TVW = Me.treeview3.Nodes.add(FD, tvwChild, KD, MC, GD) '这里面的一定要用string类型，先申明赋值。
        ElseIf rs!KID = rs!FID Then
        Set TVW = Me.treeview3.Nodes.add(, , KD, MC, GD)
        End If
        rs.MoveNext
        Loop
    '=============================================
        For a = 1 To Me.treeview3.Nodes.Count '全部展开
        Me.treeview3.Nodes(a).Expanded = True
        Next a
    '=============================================
   
End Sub