Definisci un datareader
Definisci un command con il relativo commandtext
Definisci e apri la connessione
datareader = command.ExecuteReader
While datareader.Read()
Debug.WriteLine(datareader("campo"))
End While