Obtener datos de una lectura de una tabla

[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!.