Finde by udfra postnummer

Hej, jeg har lige lavet denne Sub som eksekverer når brugeren vælger en by i en lstboks:

Public Sub LstPostnr_Changed(Sender As Object, E As EventArgs)

Dim strSQL as string

    objConn.Open()

    strSQL = "SELECT Distinct By FROM Post_tabel WHERE Land =
'" & LstCountry.SelectedItem.Value & "' AND Postnr = '" &      LstPostnr.SelectedItem.Value & "';"
   
    objComm = New OleDbCommand(strSQL, objConn)
    objDataReader = objComm.ExecuteReader()   

    TxtBy.Text = objDataReader("By")   

    TxtBy.Text = lstPostnr.SelectedItem.Text

objDataReader.Close()
End Sub

Hvis jeg tester sql'en i Access virker det fint, men programmet melder den: "No data exists for the row/column."

Hvad er det lige jeg mangler?