Erreur d'excution 13 incompatibilité type

Option Compare Database
Option Explicit
 
Public Sub loadtreeview()

Dim tv As MSComctlLib.TreeView
Set tv = Forms("Menu de Démarrage").Treereqs.Object

tv.Nodes.Clear
Dim rsReqs As DAO.Recordset
Set rsReqs = CurrentDb.OpenRecordset("select * from tbl_Reqs ORDER BY ID_Parent,Dbl_sort,PK_Req", dbOpenDynaset)


Dim strfind As String
strfind = "ID_Type=1"
rsReqs.FindFirst strfind
Dim nodX As MSComctlLib.Node

Dim strbook As String
Do While Not rsReqs.NoMatch
Set nodX = tv.Nodes.Add(, , , rsReqs!mem_Req)
strbook = rsReqs.Bookmark
addchildren tv, nodX, rsReqs, rsReqs!PK_Req

rsReqs.Bookmark = strbook
rsReqs.FindNext strfind


Loop


End Sub
Private Sub addchildren(tv As TreeView, Nodparent As Node, rsReqs As DAO.Recordset, lngParentID As Long)
Dim strfind As String
strfind = "ID_Parent=" & lngParentID
rsReqs.FindFirst strfind
Dim nodX As Node


Dim strbook As String
Do While Not rsReqs.NoMatch
Set nodX = tv.Nodes.Add(Nodparent, tvwChild, , rsReqs!mem_Req)
strbook = rsReqs.Bookmark
addchildren tv, nodX, rsReqs, rsReqs!PK_Req
rsReqs.Bookmark = strbook

rsReqs.FindNext strfind
Loop

End Sub