Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim myConnection As OleDbConnection = New System.Data.OleDb.OleDbConnection( _
      )
    Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
    "Source=C:\data.mdb"
    Dim da As OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter("Select" & _
    "* from Table1", myConnection)
    Dim ds As DataSet = New System.Data.DataSet
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        myConnection.ConnectionString = connString
        ' fill dataset 
        da.Fill(ds, "Table1")
        ' write dataset contents to an xml file by calling WriteXml method 
        ' Attach DataSet to DataGrid 
        DataGrid1.DataSource = ds.DefaultViewManager
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        da.Update(ds, "Table1")
        myConnection.Close()
    End Sub
End Class