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

[Aquaventus]

Hola ci2000. Para tu primera pregunta podrías crearlo un contador e ir sumando dentro del while y para la 2da tienes que pasarle el reader a la propiedad text del label lo cual no haces :

Código vb:

Dim contador As Integer = 0
        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()
            contador += 1
            MsgBox(dr("calle"))
            MsgBox("Se han encontrado " & contador.ToString & " filas")
            LaCalle.Text = dr("calle")
        End While
        dr.Close()
 

Saludos!.

[ci2000]

Aquaventus, gracias por responder.

Funcionó ok.
Pensé que para obtener la cantidad de registros leídos había una propiedad como "rows" o "items" que me devolviera esto sin la necesidad de usar un contador.

Gracias

[Aquaventus]

Hola ci2000, esa propiedad de rows count lo sé en Datatable o Dataset, pero en un reader no le eh visto. Saludos!.