Obtener datos de una lectura de una tabla

[ci2000]

Hola. Logré leer registros de una tabla con:

Código:

        Dim sql As MySqlCommand = New MySqlCommand
        sql.Connection = Conexion
        sql.CommandText = "SELECT * FROM `calles` WHERE id = '" & TxCalle.Text & "' AND letra = '';"
        sql.CommandType = CommandType.Text
        Dim dr As MySqlDataReader
        dr = sql.ExecuteReader()
        While dr.Read()
            MsgBox(dr("calle"))
            LaCalle = dr("calle").ToString  'esto me da error
        End While
        dr.Close()

Mis consultas son:
1) ¿Cómo puedo obtener la cantidad de registros leídos con la consulta? Esto lo necesito para mostrar un mensaje si no se ha encontrado nada.
2) ¿Cómo puedo mostrar el contenido del campo "calle" en el Label LaCalle?

Desde ya, muchas gracias por las respuestas.
Saludos