Dim oledata As System.Data.OleDb.OleDbDataAdapter
            Dim miaConn As OleDb.OleDbConnection = New OleDb.OleDbConnection(("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Programmi\fb.mdb"))
            Dim miaDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select * from dati", miaConn)
            Dim myDataRowsCommandBuilder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(miaDataAdapter)

                miaDataAdapter.Update(workTable)