I_hate.vb

Dim Connection As New SqlConnection()
Dim Command As New SqlCommand()
Dim Result As SqlDataReader

Connection.ConnectionString = "Data Source=myserver;Initial Catalog=databasename;Integrated Security=True"
Connection.Open

Command.Connection = Connection
Command.CommandText = "SELECT * FROM users"

Result = Command.ExecuteReader

While Result.NextResult()
  Result.Read()
  MsgBox(Result("Column Name"))
End While

Result.Close
Connection.Close()