Проблема с ListBox

[LittleFatCat]

Доброго времени суток, братья по Access-у!

Подскажите если кто чего знает...
Суть: есть база дипломов с полями годов(поступления, окончания, выдачи, отчисления, рождения). Делаю форму с комбобоксом SelType, списком lstYears и подформой SubDiplYearList. Идея - выбрав из комбобокса тип года, в списке получить сгруппированные значения годов и кол-во записей с ними, а в подформе - конкретные записи с отфильтрованным по значению в списке годом. Но! При открытии формы подформа не содержит записей, хотя записи о годах в списке есть. Стоит мышой ткнуть в список (сделать его активным), как записи в подформе появляются. Ощущение такое, что подформа не видит при старте значение из списка :-(. Программно активировать (зачернить) позицию в списке не получается. SetFocus просто обводит первый элемент списка пунктирной рамкой. Сижу, туплю... :-(
Код на события:

Private Sub Form_Open(Cancel As Integer)
Dim strSQL As String
Dim strMaxYear As String
  
  lstYears.Requery
  lstYears.SetFocus
  strSQL = "SELECT Departs.SName, Books.Year, Books.Book_Nom, DIPLOMA.LastName & ' ' & Diploma.FIrstName &" & _
   " ' ' & Diploma.MidName AS FIO, [REG_NOM] & ' ' & [Postfix] AS RegNum, Diploma.BookID," & _
   " [DIPL_SER] & ' ' & [dipl_nom] AS Diplom, DIPLOMA.KOD_SPEC, Status.StatusName, DIPLOMA.AutoID" & _
   " FROM Status INNER JOIN (Departs INNER JOIN (Books INNER JOIN DIPLOMA ON Books.BookID = DIPLOMA.BOOKID) ON" & _
   " Departs.DepartID = Books.DepartID) ON Status.StatusID = DIPLOMA.STATE" & _
   " WHERE Diploma.Exit =" & " Forms![frmDiplYearList]![lstYears]"
  SubDiplYearList.Form.RecordSource = strSQL
  Call SelType_AfterUpdate
  'Call lstYears_AfterUpdate
  Me.Requery
End Sub

Private Sub lstYears_AfterUpdate()
  SubDiplYearList.Requery
End Sub

Private Sub SelType_AfterUpdate()
Dim strSQL As String
Dim strType As String
  If IsNull(SelType.Value) Or SelType.Value = "" Then SelType.Value = 1
  Select Case SelType
    Case 1:
      strType = "EndDate"
    Case 2:
      strType = "Exit"
    Case 3:
      strType = "BegDate"
    Case 4:
      strType = "OutDate"
    Case 5:
      strType = "BirthYear"
  End Select
  
  lblNull.Caption = "Имеют значение '0' в данном поле :" & str(DCount(strType, "Diploma", strType & "=0")) & " записей"
  strSQL = "SELECT DIPLOMA." & strType & " AS Год, Count(DIPLOMA." & strType & ") AS [Кол-во] FROM DIPLOMA WHERE DIPLOMA." & _
   strType & "<>0 GROUP BY DIPLOMA." & strType & " ORDER BY DIPLOMA." & strType & " DESC"
  lstYears.RowSource = strSQL
  lstYears.Requery
  lstYears.SetFocus
  
  strSQL = SubDiplYearList.Form.RecordSource
  strSQL = Left(strSQL, InStr(strSQL, " WHERE ")) & " WHERE Diploma." & strType & " = Forms![frmDiplYearList]![lstYears]"
  SubDiplYearList.Form.RecordSource = strSQL
  SubDiplYearList.Requery
End Sub

[Волшебник]

LittleFatCat,
Форма пдч открывается раньше Формы основной.

[LittleFatCat]

В-общем, плюнул и сменил список на подформу с тем же источником данных. Всё работает, но за ListBox всё равно обидно
Неужели таки ничего и нельзя сделать?

Волшебник, спасибо!