'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