Kod:
If (coon.State = ConnectionState.Closed) Then coon.Open()
Dim ol As OleDb.OleDbCommand = New OleDb.OleDbCommand("UPDATE dernekdb SET tc=@tc, adsoyad=@adsoyad, dtarih=@dtarih, memleket=@memleket, cinsiyet=@cinsiyet,eklendigitarih=@eklendigitarih", coon)
ol.Parameters.AddWithValue("@tc", TextBox1.Text)
ol.Parameters.AddWithValue("@adsoyad", TextBox2.Text)
ol.Parameters.AddWithValue("@dtarih", TextBox3.Text)
ol.Parameters.AddWithValue("@memleket", TextBox4.Text)
ol.Parameters.AddWithValue("@cinsiyet", TextBox5.Text)
ol.Parameters.AddWithValue("@eklendigitarih", TextBox6.Text)
Dim dt As New DataTable()
dt.Load(ol.ExecuteReader())
ol.Dispose()
coon.Close()