Basit bir cari program yazıyorum takıldığım nokta şudur.

Bu kaydet bölümüm

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 = ""

Buradan TextBox2.Text i çıkaracam çünkü 2 textboxla çalışmak çok acemice kalıyor.

-Combobox2 den "Alınan" seçilirse Textbox1 e yazılan veriyi veritabanındaki "alinan" bölümüne kaydedecek "verilen" bölümüne "0" yazacak.

-Combobox2 den "Verilen" seçilirse Textbox1 e yazılan veriyi veritabanındaki "verilen" bölümüne kaydedecek "alinan" bölümüne "0" yazacak.

Teşekkürler...