Public Function Table1_Update() As Boolean
      Dim cb As OleDbCommandBuilder
      cb = New OleDbCommandBuilder(adapt1)
      cb.ConflictOption = ConflictOption.OverwriteChanges
      With adapt1
          .UpdateCommand = cb.GetUpdateCommand
          .InsertCommand = cb.GetInsertCommand
          .DeleteCommand = cb.GetDeleteCommand
      End With
      adapt1.Update(table1)
      cb.Dispose()
      cb = Nothing
      Return True
End Function