No se controló MySqlException

[ci2000]

Hola. En el siguiente procedimiento me da el error "There is already an open DataReader associated with this Connection which must be closed first."

Según entiendo me dice que el DataReader está abierto.

Código:

    Private Sub TxCalle_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxCalle.TextChanged
        BuscaCalle()
    End Sub

Código:

    Private Sub BuscaCalle()
        LaCalle.Text = String.Empty
        If Len(TxCalle.Text) > 0 Then
            Dim sql As MySqlCommand = New MySqlCommand
            sql.Connection = Conexion
            If Len(TxLetra.Text) > 0 Then
                sql.CommandText = "SELECT * FROM calles WHERE id = " & TxCalle.Text & " AND letra = '" & TxLetra.Text & "'"
            Else
                sql.CommandText = "SELECT * FROM `calles` WHERE id = '" & TxCalle.Text & "' AND letra = ''"
            End If
            sql.CommandType = CommandType.Text

            Dim dr As MySqlDataReader
            dr = sql.ExecuteReader()    'Acá me muestra el error
            If dr.HasRows Then
                While dr.Read()
                    LaCalle.Text = dr("calle").ToString
                End While
            Else
                LaCalle.Text = "INEXISTENTE"
            End If
            sql = Nothing
            dr.Close()
            dr = Nothing
        End If
    End Sub

Si se genera mediante teclado el evento TextChanged no me da error, pero si a TxCalle le asigno un valor mediante TxCalle.Text =CStr(1) si me da error.


Gracias desde ya por las respuestas.
Saludos