Oluşturacağınız formunuzda 2 adet TextBox ve bir adet Button ekleyiniz, aşağıdaki kodları uygulayınız. Şu anda iki TextBox için ayarlanmıştır. Siz bunu çoğaltabilirsiniz veya 1,2 doluysa şu SQL'i, 3 doluysa şu SQL'i çalıştır şeklinde ayarlarsınız. Umarım işinize yarar.

Uygulamanız içerisinde yer alan bin\Debug içerisine deneme adınmda bir mdb yaratmayı unutmayınız.

Imports System.Data.OleDb

Public Class Form1



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

        Dim Sql As New String("CREATE TABLE bilgiler  ({0} TEXT,   {1} TEXT)")

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

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

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

        Dim sonuc As Integer

        baglanti.Open()

        sonuc = komutnesnesi.ExecuteNonQuery()

        MsgBox("Yeni Tablonuz Başarıyla Oluşturulmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")

        baglanti.Close()

    End Sub

End Class