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