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

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

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

Select all