disappearing list in dataCombo

Hi there, I am using the following code to query the value of a dataCombo box

Dim SQL As String

Private Sub DataCombo1_Change()
On Error Resume Next
Adodc1.RecordSource = SQL & "'" & DataCombo1.Text & "'"
Call Adodc1.Refresh
End Sub

Private Sub Form_Load()
SQL = "Select LELyear, UELyear FROM Limits WHERE TaxYear = "
End Sub


When I click on a TaxYear in the dataCombo, it returns the correct year, but then if I decide to change the year, the dataCombo is empty?

I have the dataCombo's RowSource set to Adodc1 and it's List Property to TaxYear.