为什么在listtree对NODE 对象赋值时会出现类型不匹配，高手们帮帮我，谢谢

Private Sub InitTv()
Dim i As Integer
Dim sys As Node, Subs As Node
  TV1.Nodes.Clear
  '添加根节点  Set sys = TV1.Nodes.Add(, , , "加工工具", 1)
'执行到上面这一步程序报错，提示类型不匹配！
    '添加子根节点
    Dim RsTree As New ADODB.Recordset
    RsTree.Open "select * from t_BOSParameter where FLevels=1", y_mK3Con, 1, 1
    
    If Not RsTree.EOF Then
        RsTree.MoveFirst
        Do While Not RsTree.EOF
           TV1.Nodes.Add , tvwChild, , RsTree.Fields(1), 2, 2
            
               ' Subs = RsTree(0)
            Dim Finterid As Integer
              MsgBox RsTree.Fields(0), 64, "JCCS"
                Finterid = CInt(RsTree.Fields(0))
                MsgBox "OK", 64, "JCCS"
            Dim RsM As New ADODB.Recordset
             RsM.Open "select * from t_BOSParameter where FParentID=" & Finterid & "and FLevels=2", y_mK3Con, 1, 1
            If Not RsM.EOF Then
                RsM.MoveFirst
                Do While Not RsM.EOF
                    TV1.Nodes.Add Subs, tvwChild, , RsM.Fields(1), 3, 3
                    RsM.MoveNext
                Loop
            End If
                Set RsM = Nothing
                RsTree.MoveNext
        Loop
        
    End If
End Sub