🚀 go-pugleaf

Witam ponownie.
Poradziłem sobie. Brakowało w Accessie 2010 biblioteki MSOWC.DLL
Microsoft Office Web Components 9.0
Pożyczyłem sobie ze starego Accessa 2000.
Działa OK.
Jednak pojawił się inny problem w formularzu wyszukującym interesujące mnie dane.
Tzn W formularzu mam parę pól kombi, które reprezentują kwerendy wyszukujące odpowiednie dane. Jednym z pól kombi jest pole zawierające poszczególne lata transakcji nieruchomości - pokazuje tylko rok np 2013,2014,2015 jako listę. Ta lista tworzy się z dat transakcji np 2013-02-06, 2014-01-30, 2015-07-07.Kod poniżej:
'Procedura przy otwarciu formularza Wyszukaj
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Form_Open_Err
    Dim i As Integer
    Dim intFirst As Integer
    Dim intLast As Integer
    Dim strListaRok As String

' Create list for lstYear list box
    intFirst = Year(DMin("[Data]", "BazaDanychTransakcjeKupnaSprzedazy"))
    intLast = Year(DMax("[Data]", "BazaDanychTransakcjeKupnaSprzedazy"))
    For i = intFirst To intLast
        strListaRok = strListaRok & i & ";"
    Next i
    With Me.ListaRok
        .RowSourceType = "Value List"
        .RowSource = strListaRok
    End With
    Exit Sub
Form_Open_Err:
    MsgBox "An unexpected error has occurred." _
        & vbCrLf & "Procedure: Form_Open" _
        & vbCrLf & "Error Number: " & Err.Number _
        & vbCrLf & "Error Description: " & Err.Description _
        , vbCritical, "Error"
End Sub

dodatkowo
 Budowa kryteriów dla ciągu Rok
For Each varItem In Me.ListaRok.ItemsSelected
        strRok = strRok & "," & Me.ListaRok.ItemData(varItem)
    Next varItem
    If Len(strRok) = 0 Then
        strRok = "Like '*'"
    Else
        strRok = Right(strRok, Len(strRok) - 1)
        strRok = "IN(" & strRok & ")"
    End If

W Access 2000 daty wyświetlają się, natomiast w wyższych Accessach niestety pole kombi jest puste - nie pokazuje poszczególnych lat. Nie można wyszukać danych po założonych kryteriach, bo brakuje mu kryterium rok.
Nie wyświetla się żaden kod błędu.
Proszę o pomoc.
PS
Czy jest na grupie ktoś z Wrocławia lub okolic ?