While lectura.Read() //read es un metodo, el cual devuelve True si es posible leer otra...
Data = Data + 1
'Dim s As String = Convert.ToString(lectura.GetFloat(2))
Dim row As String() = {lectura.GetString(0).TrimEnd, lectura.GetString(1).TrimEnd, Convert.ToString(lectura.GetValue(2))}
Me.DataGridView1.Rows.Add(row)
End While