Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
cmd = New OleDbCommand("select tbl_Jurnal.Kode_COA,tbl_Jurnal.N_Perkiraan,sum (Debet) as Debet,sum (Kredit) as Kredit from tbl_Jurnal where left (Kode_COA,1) IN ('4','5','6') AND date between ? AND ? group by Kode_COA,N_Perkiraan order by Kode_COA asc", conn)
        cmd.Parameters.AddWithValue("?", DateTimePicker1.Value.Date)
        cmd.Parameters.AddWithValue("?", DateTimePicker2.Value.Date)
        da = New OleDbDataAdapter(cmd)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds)
        DGVLABARUGI.DataSource = ds.Tables(0)
        DGVLABARUGI.ReadOnly = True
        With DGVLABARUGI
            .Columns(0).Width = "150"
            .Columns(1).Width = "310"
            .Columns(2).Width = "150"
            .Columns(3).Width = "150"
            .Columns(0).HeaderText = "KODE AKUN"
            .Columns(1).HeaderText = "NAMA AKUN"
            .Columns(2).HeaderText = "AMOUNT"
            .Columns(3).HeaderText = "AMOUNT"
            .Columns(2).DefaultCellStyle.Format = "##,0"
            .Columns(3).DefaultCellStyle.Format = "##,0"
            .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomRight
            .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .ColumnHeadersDefaultCellStyle.Font = New Font(DGVLABARUGI.Font, FontStyle.Bold)
        End With
    End Sub