Kod:
Dim a As String
a = TextBox3.Text
Dim sql As New String("CREATE TABLE a ({0} TEXT, {1} TEXT)")
sql = String.Format(sql, TextBox1.Text, TextBox2.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:OtoServisOtomasyonu.accdb")
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()