Private Function Access_Update(ByVal DBDataSet As DataSet, ByVal Connection _
      As String, ByVal SQL As String, ByVal Table As String) As Boolean
        '
        Dim DBConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
          Connection)
        '
        Try
            '
            Dim DbDataAdapter As OleDb.OleDbDataAdapter = New _
              OleDb.OleDbDataAdapter(SQL, DBConnection)
            '
            Try
                '
                Dim DBCommandBuilder As OleDb.OleDbCommandBuilder = New _
                  OleDb.OleDbCommandBuilder(DbDataAdapter)
                '
                If DBDataSet.HasChanges Then
                    DbDataAdapter.Update(DBDataSet, Table)
                    DBDataSet.AcceptChanges()
                End If
                '
            Finally
                '
                DbDataAdapter.Dispose()
                '
            End Try
            '
        Finally
            '
            DBConnection.Close()
            DBConnection.Dispose()
            '
        End Try
        '
    End Function