id: int
depart: int - подстановка из справочника департаментов
otd: int - подстановка из справочника отделов
sek: int - подстановка из справочника секторов
dolj: int - подстановка из справочника должностей
и еще поля описательного характера данной штатной единицы (минимум, максимум, вредные условия, категория, количество ставок, ШПЗ ну и мелочи ...)

Private Sub Form_Open(Cancel As Integer)
Dim rs_dep, rs_otd As DAO.Recordset
Dim strInput As String
Dim TypeKey, key_dep, key_otd, Parent_Key As String

Set rs_dep = CurrentDb.OpenRecordset("Спр_Департаментов")
Do While Not rs_dep.EOF
 key_dep = rs_dep.Fields("ID").Value
 TypeKey = "a" & rs_dep.Fields("ID").Value
 strInput = rs_dep.Fields("Name").Value
 cTV1.Nodes.Add , , TypeKey, strInput
 cTV1.Nodes.Item(TypeKey).Expanded = True

 Set rs_otd = CurrentDb.OpenRecordset("SELECT [Штатное расписание].Департ, [Штатное расписание].ОТДЕЛ, [Спр_Отделов].Name FROM [Штатное расписание] LEFT JOIN [Спр_Отделов] ON [Штатное расписание].ОТДЕЛ = [Спр_Отделов].ID WHERE ((([Штатное расписание].Департ)=key_dep) AND (([Штатное расписание].ОТДЕЛ) Is Not Null));") ' здесь начинает ругаться Слишком мало параметров. Требуется 1.
     Do While Not rs_otd.EOF
     TypeKey = "b" & rs_otd.Fields("ОТДЕЛ").Value
     strInput = rs_otd.Fields("Name").Value
     Parent_Key = "a" & rs_dep.Fields("ID").Value
     cTV1.Nodes.Add Parent_Key, 4, TypeKey, strInput ' и здесь начинает ругаться key is not unique in collection
     rs_otd.MoveNext ' набор данных из запроса, выбирающего отделы в штатном расписании по данному департаменту.
    Loop
    
 rs_dep.MoveNext ' набор данных из справочника департаментов 
 Loop
End Sub

Private Sub Form_Open(Cancel As Integer)
Dim db As DAO.Database
Dim rst_dep As DAO.Recordset
Dim rst_otd As DAO.Recordset
Dim nodX As Node

Set rs_dep = CurrentDb.OpenRecordset("SELECT * FROM [Спр_департаментов]", dbOpenSnapshot)
 
Do Until rs_dep.EOF
   Set nodX = cTV1.Nodes.Add(, , "a" & rs_dep("ID"))
   
   nodX.Text = rs_dep("Name")
   nodX.Tag = rs_dep("ID")
   
   Set rst_otd = CurrentDb.OpenRecordset("SELECT [Штатное расписание].ДЕПАРТ, [Штатное расписание].ОТДЕЛ, [Спр_Отделов].Name" & _
          " FROM [Штатное расписание] LEFT JOIN [Спр_Отделов] ON [Штатное расписание].ДЕПАРТ = [Спр_Отделов].ID" & _
          " WHERE (([Штатное расписание].ДЕПАРТ = " & rs_dep("ID") & ")" & _
          " AND (([Штатное расписание].ОТДЕЛ) Is Not Null))", dbOpenSnapshot)

 
   Do Until rst_otd.EOF
      Set nodX = cTV1.Nodes.Add("a" & rs_dep("ID"), tvwChild, "b" & rst_otd("ОТДЕЛ")) ' здесь ругается key is not unique in collection
        
  '    nodX.Text = rst_otd("Name")
   '   nodX.Tag = rst_otd("ОТДЕЛ")
      rst_otd.MoveNext
   Loop
  rs_dep.MoveNext
Loop
    
cTV1.Sorted = True
End sub