Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
        On Error Resume Next
        TextBox6.Text = FormatNumber(TextBox6.Text, 0)
        TextBox6.SelectionStart = Len(TextBox6.Text)
    End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Then
            MsgBox("data tidak boleh kosong")
            Exit Sub
        Else
            Call connection()
            Dim simpanDebet1 As String
            simpanDebet1 = "insert into [TBL_JURNAL] (tanggal,voucher,coa,nama_coa,keterangan,debet,kredit,saldo) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox15.Text & "')"
            cmd = New SqlCommand(simpanDebet1, conn)
            cmd.ExecuteNonQuery()
            MsgBox("data berhasil disimpan")
        End If
    End Sub
End Class