kodlar
Dim Sql As New String("INSERT INTO kodlar(kod,aciklama) values('" + Me.TextBox1.Text + "','" + Me.TextBox2.Text + "')")
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='database.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
baglanti.Open()
komutnesnesi.ExecuteNonQuery()
baglanti.Close()
MsgBox("Bilgileriniz Kayıt Edilmiştir.", MsgBoxStyle.Information, "KAYIT")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()