Chciałabym modyfikować zapytanie SQL za pomocą listy rozwijanej (w przykładzie w komórce A2) np. wybór roku wybrany w liście rozwijanej wywołuje odpowiednie zapytanie.

Utworzyłam połączenie o uproszczonej nazwie "test" do bazy SQL wg zapytania: 

SELECT rokId, katalog from nazwa_bazy.FK.FROK where katalog = 2015

Dane wyświetliły się prawidłowo.

Następnie utworzyłam VBA:

Private Sub Worksheet_Test(ByVal Target As Range)

If Target.Address = "$A$2" Then

ActiveWorkbook.Connections("test").OLEDBConnection.CommandText = _
"SELECT FROK.rokId, FROK.katalog FROM nazwa_bazy.FK.FROK WHERE FROK.katalog = " & Range("A2").Value

ActiveWorkbook.Connections("test").Refresh

End If

End Sub

VBA nie wskazuje błędu, ale debugger nie reaguje. Zmiana roku w liście rozwijanej zamieszczonej w komórce A2 nie wpływa na zmianę wyniku zapytania- cały czas wskazuje kategorię 2015 jak pierwotnie było to założone w połączeniu.

Jakieś wskazówki?