Dim Sql As New String("INSERT INTO data (Firmaunvani) values ('" & TextBox1.Text & "')")

        Dim sql2 As New String("INSERT INTO ortak (Firmaunvani,ortakadbir, ortakadiki) values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.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'")

            baglanti.Close()

            Temizle()