كيفية ادخال بيانات الى الداتابيس ؟

مرحبا

هذه احدى طرق كتابة البيانات الجديدة الى قاعدة بيانات Access

Dim DC As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0; data source= " & Server.MapPath("app_data\data.mdb"))
DC.Open()
Dim DA As New OleDb.OleDbDataAdapter("select * from Tablos", DC)
Dim ds As New DataSet("S")
DA.Fill(ds)
Dim cb As New OleDb.OleDbCommandBuilder(DA)
Dim r As DataRow
r = ds.Tables(0).NewRow

r("T_Name") = Me.TextBox1.Text

ds.Tables(0).Rows.Add(r)
Dim dsChanges As DataSet = ds.GetChanges
DA.Update(dsChanges)
ds.AcceptChanges()
DC.Close()