Imports System.Data.SqlClient
Public Class FrmTrialBalance()

Private Sub FrmTrialBalance_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim conn As SqlConnection
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim str As String
Str="Data Source=(LocalDB)\v11.0;AttachDbFilename=C:\Users\INDRA PC\Documents\Visual Studio 2013\Projects\testproject_autoincrement\testproject_autoincrement\Database.mdf;Integrated Security=True"
conn = New SqlConnection(str)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
da = new SqlDataAdafter ("SELECT tbl_Jurnal.Kode_COA,N_Perkiraan,SUM(DEBET) AS DEBET,SUM(KREDIT) AS KREDIT,SUM(DEBET)-SUM(KREDIT) AS SALDO FROM tbl_Jurnal GROUP BY tbl_Jurnal.N_Perkiraan,tbl_Jurnal.Kode_COA ORDER BY 1 ASC", conn)
ds = new DataSet
dgvNrcSaldo.Columns.Clear()
            DS = New DataSet
            DA.Fill(DS)
            dgvNrcSaldo.DataSource = DS.Tables(0)
            dgvNrcSaldo.ReadOnly = True

        with dgvNrcSaldo
            .dgvNrcSaldo.Columns(0).HeaderText = "KODE AKUN"
            .dgvNrcSaldo.Columns(1).HeaderText = "NAMA AKUN"
            .dgvNrcSaldo.Columns(2).HeaderText = "DEBET"
            .dgvNrcSaldo.Columns(3).HeaderText = "KREDIT"
            .dgvNrcSaldo.Columns(4).HeaderText = "SALDO"
            .dgvNrcSaldo.Columns(0).Width = "150"
            .dgvNrcSaldo.Columns(1).Width = "300"
            .dgvNrcSaldo.Columns(2).Width = "150"
            .dgvNrcSaldo.Columns(3).Width = "150"
            .dgvNrcSaldo.Columns(4).Width = "150"
            .dgvNrcSaldo.Columns(2).DefaultCellStyle.Format = "##,0"
            .dgvNrcSaldo.Columns(3).DefaultCellStyle.Format = "##,0"
            .dgvNrcSaldo.Columns(4).DefaultCellStyle.Format = "##,0"
            .dgvNrcSaldo.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            .dgvNrcSaldo.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            .dgvNrcSaldo.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            .dgvNrcSaldo.ColumnHeadersDefaultCellStyle.Font = New Font(dgvNrcSaldo.Font, FontStyle.Bold)
            .dgvNrcSaldo.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .dgvNrcSaldo.RowsDefaultCellStyle.BackColor = Color.AliceBlue
            .dgvNrcSaldo.AlternatingRowsDefaultCellStyle.BackColor = Color.AntiqueWhite
        End With
End Sub