Scorrere una tabella

Dim myCommand = New SqlCeCommand("Select * from Letture", conn)
'executing the command and assigning it to connection

Dim dr = myCommand.ExecuteReader()
While dr.Read()
'reading from the datareader

MessageBox.Show("id " & dr(0).ToString())
MessageBox.Show("idUtemnza " & dr(1).ToString())
MessageBox.Show("lettprecedente " & dr(2).ToString())
MessageBox.Show("lettAttuale " & dr(3).ToString())
MessageBox.Show("IdLetturista " & dr(4).ToString())
'displaying the data from the table

End While
dr.Close()
conn.Close()