Dim kirasube As New String("INSERT INTO cari (firma_id,tarih,alinan,verilen,aciklama) values ({0},'{1}',{2},{3},'{4}')")
        kirasube = String.Format(kirasube, ComboBox6.SelectedValue, DateTimePicker1.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text)
        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDBatabase Password=13*13")
        Dim komutnesnesi As New OleDb.OleDbCommand(kirasube, baglanti)
        Dim sonuc As Integer
        baglanti.Open()
        sonuc = komutnesnesi.ExecuteNonQuery()
        If sonuc = 1 Then
            MsgBox("" & ComboBox6.Text & " " & "Firmasının" & " " & DateTimePicker1.Text & " " & "Tarihli Bilgileri Kaydedildi", MsgBoxStyle.Exclamation, "Kayıt İşlemi")
            baglanti.Close()
        End If
        Listele("select * from cari where firma_id=" & Me.ComboBox6.SelectedValue & "")
        
        Me.DateTimePicker1.Text = ""
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        Me.TextBox3.Text = ""
        Me.TextBox4.Text = ""
        Me.TextBox5.Text = ""
        Me.ComboBox2.Text = ""