Cara menampilkan data SQLServer / MySQL dengan Visual Studio 2013 / VbNet

Melanjutkan tutorial sebelumnya yaitu Menyimpan data SQLServer dengan VbNet . maka kali ini saya akan melanjutkan menampilkan data pada table SQL Server yang sudah kita buat

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
     Call buka() 'memanggil perintah buka pada module 
     Call tampil() 'memanggil perintah tampil pada form1 
End Sub


 Sub tampil()
        koneksi.Close() 'close var koneksi pada module
        buka() 'membuka var buka pada module 
        cmd = New SqlClient.SqlCommand("SELECT * FROM tbl_barang", koneksi) ' menampilkan semua data barang
        adaptor = New SqlClient.SqlDataAdapter 
        adaptor.SelectCommand = cmd
        data = New Data.DataSet 'set data pada table barang
        adaptor.Fill(data, "c") 
        DGV.DataSource = data 'menampilkan datagrid sesuai command sql 
        DGV.DataMember = "c"
        atur() 'menjalankan perintah atur

    End Sub

    Sub atur()
        With DGV.ColumnHeadersDefaultCellStyle ' setting properties pada datagridview
            DGV.Columns(0).HeaderText = "Kode Barang"
            DGV.Columns(1).HeaderText = "Nama Barang"
            DGV.Columns(2).HeaderText = "Satuan"
            .Alignment = DataGridViewContentAlignment.MiddleCenter
            .BackColor = Color.DarkRed
            .ForeColor = Color.Gold
            .Font = New Font(.Font.FontFamily, .Font.Size, _
             .Font.Style Or FontStyle.Bold, GraphicsUnit.Point)
            .Font = New Font("cambria", 11)
        End With
        DGV.Refresh() 'refresh pada datagrid 
    End Sub

Lalu hasilnya nanti akan seperti ini ;