'kaydet

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Sql As New String("INSERT INTO data (firmaad,adres) values ('" & TextBox1.Text & "', '" & TextBox2.Text & "')")

        Dim sql2 As New String("INSERT INTO ortak (datafirmaad,ortakad,ortakadres) values ('" & TextBox1.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "')")

        Sql = String.Format(sql, TextBox1.Text)

        Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")

        Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)

        Dim komutnesnesi2 As New OleDb.OleDbCommand(sql2, baglanti)

        Dim sonuc As Integer

        Dim sonuc2 As Integer

        baglanti.Open()

        sonuc = komutnesnesi.ExecuteNonQuery()

        sonuc2 = komutnesnesi2.ExecuteNonQuery()

        If sonuc = 1 And sonuc2 = 1 Then

            MsgBox("Yandaki Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")

        End If

        Listele("Select * from data inner join ortak on data.firmaad = ortak.datafirmaad")

        baglanti.Close()

    End Sub

1- Kaydetmeyi şu şekilde becerdim. Fakat text3 ve text 4 boş ise "ortak" tablosuna kayıt yapma şartını koyamadım.

2- Datagrid tıklanınca verileri textboxlarada getiriyor . Gelen verileri düzenleme ve silmeyi beceremedim.