How do I loop through an MS SQL database with VB.NET?

PHP Snippet 1:

While reader.Read()
   If reader.IsDBNull(0) = False Then
     Console.WriteLine(reader.GetValue(0).ToString())
   End If
End While