title: How to display query results from SQL server in VB?
body: <p>I am trying to display query results from SQL server in VB. I wrote following code, but not getting how to "Just display the results";</p>
  
  <pre class="lang-vb prettyprint-override"><code> Public Function ConnectToSQL() As String
          Dim con As New SqlConnection
  Try
              con.ConnectionString = "Data Source=(local);Initial Catalog=TestDatabase;Persist Security Info=True;User ID=sa;Password=afm"
              Dim cmd As New SqlCommand("SELECT username FROM users WHERE username='user'", con)
              con.Open()
              Console.WriteLine("Connection Opened")
  
              ' Execute Query
              Dim reader As SqlDataReader = cmd.ExecuteReader()
              While reader.Read()
                  Console.WriteLine(String.Format("{0}, {1}", _
                     reader(0), reader(1)))
  
              End While
          Catch ex As Exception
              MessageBox.Show("Error while connecting to SQL Server." &amp; ex.Message)
          Finally
              con.Close() 'Whether there is error or not. Close the connection.
          End Try
          Return reader
      End Function
  </code></pre>
  
  <p>Can any one guide? Thank you</p>