Kod:
Dim a As String
a = TextBox3.Text
Dim sql As String
sqL = "CREATE TABLE " & a & " (" & TextBox1.Text & " INT," & TextBox2.Text & " CHAR(50));"
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()