' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.Data Imports System.Data.OleDb Module Main Sub Main() ' initialize Dim con As OleDbConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\MSAccess\Test.mdb") Dim da As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM T1", con) Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da) Dim ds As DataSet = New DataSet da.Fill(ds, "T1") Dim dt As DataTable = ds.Tables("T1") ' print all rows Dim i As Integer For i = 0 To (dt.Rows.Count - 1) Console.WriteLine(dt.Rows(i).Item("F1") & " " & dt.Rows(i).Item("F2")) Next ' add new row Dim dr As DataRow = dt.NewRow dr.Item("F1") = 12345 dr.Item("F2") = "ABCDE" dt.Rows.Add(dr) ' print all rows For i = 0 To (dt.Rows.Count - 1) Console.WriteLine(dt.Rows(i).Item("F1") & " " & dt.Rows(i).Item("F2")) Next ' write changes back to database da.Update(ds, "T1") con.Close End Sub End Module