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