Private Sub CreateAssemblyNodes()
  Dim rst As DAO.Recordset ' recordset for product data

  ' open the recordset for products
  Set rst = CurrentDb.QueryDefs!qryJobAssemblies.OpenRecordset

  ' loop through the rows in the recordset
  rst.MoveFirst
  Do Until rst.EOF
    Me.TreeJobTracker.Nodes.Add Relationship:=tvwChild, _
        Relative:=CStr(rst!jpJobNum), _
        Text:="ASM: " & rst!jaAssemblySeq & " " & rst!ParentPartNum, _
        Key:=CStr(rst!jpJobNum) & CStr(rst!jaAssemblySeq)
        
    rst.MoveNext
  Loop
  rst.Close
  Set rst = Nothing
End Sub

Select all