fylde treeview control rekursivt

Hejsa,

jeg har nappet en kode til at fylde treeview control 6.0 rekursivt fra Microsoft. Men den virker ikke.

Der sker absolut ingenting. Kontrollen forbliver tom. Tilsyneladende finder den ingen poster i tabellen, hvilket ikke giver mening.

Her er koden:

Option Compare Database
Option Explicit

Const strTableName = "articles"
Dim db As DAO.Database, rst As DAO.Recordset

Sub AddBranch(rst As Recordset, strPointerField As String, _
              strIDField As String, strTextField As String, _
              Optional varReportToID As Variant)
             
  On Error GoTo errAddBranch
  Dim nodCurrent As Node, objTree As TreeView
  Dim strCriteria As String, strText As String, strKey As String
  Dim nodParent As Node, bk As String
  Set objTree = Me!TreeView0.Object
 
  If IsMissing(varReportToID) Then  ' Root Branch.
      strCriteria = strPointerField & " Is Null"
  Else  ' Search for records pointing to parent.
      strCriteria = BuildCriteria(strPointerField, _
          rst.Fields(strPointerField).Type, "=" & varReportToID)
      Set nodParent = objTree.Nodes("a" & varReportToID)
  End If

      ' Find the first emp to report to the boss node.
  rst.FindFirst strCriteria
  Do Until rst.NoMatch
        ' Create a string with LastName.kkk
      strText = rst(strTextField)
      strKey = "a" & rst(strIDField)
      If Not IsMissing(varReportToID) Then  'add new node to the parent
        Set nodCurrent = objTree.Nodes.Add(nodParent, tvwChild, strKey, strText)
      Else    ' Add new node to the root.
        Set nodCurrent = objTree.Nodes.Add(, , strKey, strText)
      End If
        ' Save your place in the recordset so we can pass by ref for speed.
      bk = rst.Bookmark
        ' Add employees who report to this node.
      AddBranch rst, strPointerField, strIDField, strTextField, rst(strIDField)
      rst.Bookmark = bk    ' Return to last place and continue search.
      rst.FindNext strCriteria  ' Find next employee.
  Loop

exitAddBranch:
  Exit Sub

      '--------------------------Error Trapping --------------------------
errAddBranch:
  MsgBox "Can't add child:  " & Err.Description, vbCritical, "AddBranch Error:"
  Resume exitAddBranch
End Sub

Private Sub Kommandoknap2_Click()
   
    Set db = CurrentDb
    Set rst = db.OpenRecordset(strTableName, dbOpenDynaset, dbReadOnly)
    AddBranch rst, "parentarticle", "articleid", "title"
   
End Sub


Nogle idéer?