Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
  Dim objConnection As New SqlConnection _
  ("server=localhost;database=pubs;user id=pubs;password=pubs;")
  Dim objDataAdapter As New SqlDataAdapter()
  Dim objDataSet As New DataSet()



  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    objDataAdapter.SelectCommand = New SqlCommand()
    objDataAdapter.SelectCommand.Connection = objConnection
    objDataAdapter.SelectCommand.CommandText = _
    "SELECT au_lname, au_fname, title,price " & _
    "FROM authors " & _
    "JOIN titleauthor on authors.au_id=titleauthor.au_id " & _
    "JOIN titles on titleauthor.title_id=titles.title_id " & _
    "ORDER BY au_lname, au_fname"
    objDataAdapter.SelectCommand.CommandType = CommandType.Text
    '   objConnection.Open()

    objDataAdapter.Fill(objDataSet, "authors")
    '  objConnection.Close()
    '    grdAuthorTitles.AutoGenerateColumns = True
    grdAuthorTitles.DataSource = objDataSet
    grdAuthorTitles.DataMember = "authors"

    Dim objAlignRightCellStyle As New DataGridViewCellStyle
    objAlignRightCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

    Dim objAlternatingCellStyle As New DataGridViewCellStyle()
    objAlternatingCellStyle.BackColor = Color.WhiteSmoke
    grdAuthorTitles.AlternatingRowsDefaultCellStyle = objAlternatingCellStyle

    Dim objCurrencyCellStyle As New DataGridViewCellStyle()
    objCurrencyCellStyle.Format = "c"
    objCurrencyCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

    grdAuthorTitles.Columns(0).HeaderText = "Last Name"
    grdAuthorTitles.Columns(1).HeaderText = "First Name"
    grdAuthorTitles.Columns(2).HeaderText = "Book Title"
    grdAuthorTitles.Columns(2).Width = 225

    grdAuthorTitles.Columns("price").HeaderCell.Value = "Retail Price"
    grdAuthorTitles.Columns("price").HeaderCell.Style = objAlignRightCellStyle
    grdAuthorTitles.Columns("price").DefaultCellStyle = objCurrencyCellStyle


    objDataAdapter = Nothing
    objConnection = Nothing

    objCurrencyCellStyle = Nothing
    objAlternatingCellStyle = Nothing
    objAlignRightCellStyle = Nothing


  End Sub
End Class

'For the Stored Procedures(SP):

Dim objDataAdapter As New SqlDataAdapter()
Dim objDataSet As New DataSet()
objDataAdapter.SelectCommand = New SqlCommand()

objDataAdapter.SelectCommand.CommandText="usp_select_author_titles"
objDataAdapter.SelectCommand.CommandType=CommandType.StoredProcedure

objDataAdapter.Fill(objDataSet, "authors")

grdAuthorTitles.DataSource = objDataSet
grdAuthorTitles.DataMember = "authors"


.....

Imports System.Data
Imports System.Data.SqlClient


Public Class Form1
  Dim strConnectionString As String = "server=localhost;" & _
  "database=pubs;user id=pubs;password=pubs;"
  Dim cnnAuthor As New SqlConnection(strConnectionString)
  Dim daAuthors As New SqlDataAdapter
  Dim dsAuthors As New DataSet

  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    daAuthors.SelectCommand = New SqlCommand
    daAuthors.SelectCommand.Connection = cnnAuthor
    daAuthors.SelectCommand.CommandText = _
    "SELECT au_id, au_lname,au_fname,phone,address,city,state,zip,contract " & _
    " FROM authors"
    daAuthors.SelectCommand.CommandType = CommandType.Text

    cnnAuthor.Open()
    daAuthors.Fill(dsAuthors, "authors")
    cnnAuthor.Close()

    dgvAuthors.AutoGenerateColumns = True
    dgvAuthors.DataSource = dsAuthors
    dgvAuthors.DataMember = "authors"

    daAuthors = Nothing
    cnnAuthor = Nothing

  End Sub
End Class

Formatting:
{0:c} 123.22
{0:c2} 123.22